|
2100
|
Can bars have a grey backcolor and black border color for a summary-bar (EBN)
local var_Appearance as IAppearance
local var_Bar,var_Bar1,var_Bar2 as IBar
local var_Chart as IChart
local var_Items as IItems
local hSummaryJ,hSummaryK,hSummaryN,hTaskJ,hTaskK as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:RenderType := -2
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABN0GACAADACAxRDAMgBQKAAzQFAYahuGSGAAGMYxQgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQyDAAUIjOKsIhkGYcZAGQBJCjWGodQLOEgwHIERQjEyUJAGGQIHhyPYbUbGUpQHKkeRtGqgBgoKhKEouNYgAbGYIwTRsdyfDSXBpEWwbDgkNQwWTDNoRDIUQStCysaYjOpnfrUAJ1P7FdQ1NJkXRhGSSK7maapaiCSZ6STCMj1FhVKSNJ7DQKhGpgKh/ApgYpQOK4fLNXyRBK4QAyKA6bgPFZOZbFViaXY1V5bNKrcjhHQwAyHJ4XXRdV4YRAkUT4GqiJKGSYcQhuXZWbRqO6ABhef6DRThc6jKpFHIE4llEcojHqSZNgoIxnlgd5thsLREleL43gsYZ9BkaAYkMAgAm+CxGDWWAtiKCRfjcdRgHoHYnicUwgAIEIREAaQYkcQZUHIGRUDQJBOEYRAhDYCxGgMZAkCgdYQhaXQIAYERwQuahXggdgeG6VZ4H4IhdiIGIOB8YIiGiHZZgqYpGF4KYHiKCI+CAU5jCiTQ2g0YhEFyax4gABAEIC")
var_Appearance:Add(2,"gBFLBCJwBAEHhEJAAEhABU0IQAAYAQGKQYhiAKBQAGaAoDDcMA4QwAAyjAKMEwsACEIrjKCRShyCYZRhGcTAJBMIhiGQYAChEZxVhEMgzDjIAxSJAcQRFESaAABGCQGh+N4/S4NIi0CIsZQjCaiZ7pKA5bgMCo+UrNMixZQVCSOGChYRpCaZWpGGodQRUFbVHAlKypJKCKrEWSrDhuYAAW7XM7yBS1TzVNSuLZtaLqSroAJ1WTWMB0Ra8NzZEKfaZACj4arKejrRDCMAggI=")
var_Appearance:Add(3,"gBFLBCJwBAEHhEJAAEhABN8GACAADACAxRDgMQBQKAAzQFAcDBvBgABiHEZoJhUAIIRZGMIjFDcEwxDSMY7jcYAFgkNQwCUtcBIJDEMIoAJLIwyBKkNQ5AabYrmWJpMgOEAyDSJM70DCEThLD4aZJnOa5ZjmH5LRBQdBRXQMYwIGCiZQpeKqbgMBoJApCIJxdBNLAAf60LLtGJaSpKZouViJNjSBD4HQTL6BQwsKxIDqaaD/WpgFuLTjiRImShcMQXJYFbwTOyBbDjG7rJr+FptYRbdYYRQ8dy7Cywa6pOa8YwacotZrAdDXHTmHw1PTRNDmTRYRwfKqJZxieqwHoMLYgAC8Ni3OaoDAiCRQGiYZyHKaRSwPBInIYIIjeRgzBSAYKCEOySEodZbjybo0HefwfhMLQDnKeg9D6LwsCeV5unYQJYH8Lxvj+a5jgSfIYH8T43hOcZ5H+X4nh2fB6F+aABnOAIfFgFgGgGH43nICoCl+eA1n0fBhAgVZ5gSHoID4FoDCCCBqBuBYUjgfgigGURYg4JoJmKCBFBaChikiNgVEYYpokYMoMCMKJWCkcIjgiZg6E0Do3gUASAg=")
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 128
var_Chart:FirstVisibleDate := SToD("20010101")
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:[Def,exBarHAlignCaption] := 18
var_Bar:Color := 0x1000000
var_Bar1 := var_Chart:Bars:[Item,"Summary"]
var_Bar1:[Def,exBarHAlignCaption] := 18
var_Bar1:Color := 0x2000000
var_Bar2 := var_Chart:Bars:Copy("Summary","SummaryN")
var_Bar2:[Def,exBarHAlignCaption] := 18
var_Bar2:Color := 0x3000000
var_Items := oDCOCX_Exontrol1:Items
hSummaryJ := var_Items:AddItem("Summary A")
var_Items:AddBar(hSummaryJ,"Summary",SToD("20010102"),SToD("20010102"),"J",nil)
hTaskJ := var_Items:InsertItem(hSummaryJ,nil,"Task A.1")
var_Items:AddBar(hTaskJ,"Task",SToD("20010102"),SToD("20010105"),"J1",nil)
hTaskJ := var_Items:InsertItem(hSummaryJ,nil,"Task A.2")
var_Items:AddBar(hTaskJ,"Task",SToD("20010104"),SToD("20010108"),"J2",nil)
var_Items:DefineSummaryBars(hSummaryJ,"J",-1,"<*>")
hSummaryK := var_Items:AddItem("Summary B")
var_Items:AddBar(hSummaryK,"Summary",SToD("20010102"),SToD("20010102"),"K",nil)
hTaskK := var_Items:InsertItem(hSummaryK,nil,"Task B.1")
var_Items:AddBar(hTaskK,"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
hTaskK := var_Items:InsertItem(hSummaryK,nil,"Task B.2")
var_Items:AddBar(hTaskK,"Task",SToD("20010104"),SToD("20010108"),"K2",nil)
var_Items:DefineSummaryBars(hSummaryK,"K",-1,"<*>")
hSummaryN := var_Items:AddItem("Summary C")
var_Items:AddBar(hSummaryN,"SummaryN",SToD("20010102"),SToD("20010102"),"SN",nil)
hTaskK := var_Items:InsertItem(hSummaryN,nil,"Task B.1")
var_Items:AddBar(hTaskK,"Task",SToD("20010102"),SToD("20010105"),"N1",nil)
hTaskK := var_Items:InsertItem(hSummaryN,nil,"Task B.2")
var_Items:AddBar(hTaskK,"Task",SToD("20010104"),SToD("20010108"),"N2",nil)
var_Items:DefineSummaryBars(hSummaryN,"SN",-1,"<*>")
var_Items:[ItemBar,0,"<K*>",exBarColor] := 255
var_Items:[ItemBar,0,"<N*>",exBarColor] := 8421504
var_Items:[ExpandItem,0] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
2099
|
How can I display UNICODE characters
local var_Items as IItems
local var_StdFont as stdFont
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
var_StdFont := oDCOCX_Exontrol1:Font
var_StdFont:Name := "Arial Unicode"
var_StdFont:Size := 22
oDCOCX_Exontrol1:HeaderVisible := exHeaderHidden
oDCOCX_Exontrol1:DefaultItemHeight := 48
IColumn{oDCOCX_Exontrol1:Columns:Add("")}:[Def,exCellValueFormat] := 1
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Ӓӓ")
var_Items:AddItem("ᦜᦝ;ᦞ")
var_Items:AddItem("ɮɭ;ɯ")
var_Items:AddItem("勳勴勵勶")
var_Items:[FormatCell,var_Items:AddItem(oDCOCX_Exontrol1:Version),0] := "(value lfind `UNICODE`) < 0 ? `<fgcolor=FF0000><b>!UNICODE!</b> version</fgcolor> required: ` + value : `` "
oDCOCX_Exontrol1:EndUpdate()
|
|
2098
|
How can I display 12-hour time (method 2)
local var_Chart as IChart
local var_Level as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:[Level,0]:Label := 4096
var_Level := var_Chart:[Level,1]
var_Level:Unit := exHour
var_Level:FormatLabel := "(0 := hour(dvalue)) < 12 ? ( `<fgcolor=808080>` + ( =:0 = 0 ? 12 : =:0 ) + `</fgcolor>` ) : (=:0 - 12)"
oDCOCX_Exontrol1:EndUpdate()
|
|
2097
|
How can I display 12-hour time (method 1)
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:[Level,0]:Label := 4096
var_Chart:[Level,1]:Label := "<%h12%>"
oDCOCX_Exontrol1:EndUpdate()
|
|
2096
|
How do I scale to hours
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:[Level,0]:Label := 4096
var_Chart:[Level,1]:Label := 65536
oDCOCX_Exontrol1:EndUpdate()
|
|
2095
|
How do I display the position of the item with 0-padding
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}:FormatColumn := "((1 apos ``) lpad `00`) + `. ` + value"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
var_Items:AddItem("Item D")
oDCOCX_Exontrol1:EndUpdate()
|
|
2094
|
Can I format the label in row 3 below to show day numbers, only for Mondays each week (sample 2)
local var_Chart as IChart
local var_Level,var_Level1,var_Level2 as ILevel
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstVisibleDate := SToD("20090131")
var_Chart:LevelCount := 3
var_Chart:FirstWeekDay := exMonday
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%mmmm%> <%yyyy%>"
var_Level:Alignment := CenterAlignment
var_Level:Unit := exMonth
var_Level1 := var_Chart:[Level,1]
var_Level1:Unit := exWeek
var_Level1:Label := "Week <%ww%>"
var_Level1:Alignment := CenterAlignment
var_Level2 := var_Chart:[Level,2]
var_Level2:Unit := exDay
var_Level2:FormatLabel := "weekday(dvalue) = 1 ? day(dvalue): ''"
var_Chart:UnitWidth := 23
|
|
2093
|
Can I format the label in row 3 below to show day numbers, only for Mondays each week (sample 1)
local var_Chart as IChart
local var_Level,var_Level1,var_Level2 as ILevel
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstVisibleDate := SToD("20090131")
var_Chart:LevelCount := 3
var_Chart:FirstWeekDay := exMonday
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%mmmm%> <%yyyy%>"
var_Level:Alignment := CenterAlignment
var_Level:Unit := exMonth
var_Level1 := var_Chart:[Level,1]
var_Level1:Unit := exWeek
var_Level1:Label := "Week <%ww%>"
var_Level1:Alignment := CenterAlignment
var_Level2 := var_Chart:[Level,2]
var_Level2:Unit := exDay
var_Level2:FormatLabel := "weekday(dvalue) = 1 ? value : ''"
var_Chart:UnitWidth := 23
|
|
2092
|
How can I change the caption for all bars
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:Add("Task%Progress")
var_Bar:Shortcut := "Task"
var_Bar:[Def,exBarShowPercentCaption] := true
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170809"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
var_Items:[ItemBar,0,"<*>",exBarShowPercentCaption] := false
var_Items:[ItemBar,0,"<*>",exBarCaption] := "<%= %C0 replace `Task` with `Task<off 4><b>` %>"
var_Items:[ItemBar,0,"<*>",exBarHAlignCaption] := 18
oDCOCX_Exontrol1:EndUpdate()
|
|
2091
|
Can't get the +/- to be displayed on a divider item. What else can I do
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:TreeColumnIndex := 0
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:FullRowSelect := exColumnSel
oDCOCX_Exontrol1:HeaderAppearance := 0xfffffff8 | Bump | Sunken
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("C1")}:Width := 32
IColumn{var_Columns:Add("C2")}:FormatColumn := "1 index ``"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Cell 1")
var_Items:[CellSingleLine,h,1] := exCaptionWordWrap
h := var_Items:AddItem("This is bit of text merges all cells in the item (divider shows no +/-)")
var_Items:[ItemDivider,h] := 0
var_Items:[ItemBackColor,h] := RGB(240,240,240)
var_Items:[ItemDividerLine,h] := EmptyLine
var_Items:[CellHAlignment,h,0] := CenterAlignment
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Cell 3")
h := var_Items:AddItem("This is bit of text merges all cells in the item (merge shows +/-)")
var_Items:[ItemBackColor,h] := RGB(240,240,240)
var_Items:[CellMerge,h,0] := 1
var_Items:InsertItem(h,nil,"Child 3")
var_Items:InsertItem(h,nil,"Child 4")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
2090
|
How can I display one or more columns on the same bar
METHOD OCX_Exontrol1AddGroupItem(Item) CLASS MainDialog
// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
local var_Items as IItems
local l as USUAL
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ItemDividerLine,Item] := EmptyLine
var_Items:AddBar(Item,"Summary",SToD("20171202"),SToD("20171202"),nil,nil)
var_Items:DefineSummaryBars(Item,"",-3,"")
l := var_Items:[GroupItem,Item]
var_Items:[CellSingleLine,Item,l] := exCaptionWordWrap
var_Items:[CellBold,Item,l] := true
var_Items:[ItemBackColor,Item] := RGB(190,190,190)
oDCOCX_Exontrol1:Chart:[ItemBackColor,Item] := RGB(190,190,190)
RETURN NIL
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171210"),nil,nil)
RETURN NIL
local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAAEhABOUGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCMQwAFBIbhrE4ZBjHGQRUgyI43RhHUBzVIUBxDEaTZLlEYJBgeHYhDJPcaUVDcWQHGyeZwjSgpKoWSJIU5NcggPDgEwTKCmKlTAKoSzJMyEmwWRAdVTZLSEaxierKPhyWT/XgAF4PfDFKRXFqXY5mKZJFqKOI8TxINgxPQMGyrBqraLqKwQGrGCQKSBhUZ3dS2JR3OSlYRuQAMVgOXoDZhPWZXbDtSzPE63NgtOR5DiGWalABoeoxRa9cz3ViCJSrGTqIoINIzZLHFQbPpdAYdP6BeIjXhhZxBBuLZXmEOh9CcNoni2N4MjWVodh+DpfBeLJinsWR9AyYwVAkGBhEAFphGiRogDEGBamkFgtjcZgHiMbgehYaQhAIEIREAaQYkcQZUHIGRUGQDBOEaBAhDYDxGkMZAkCgeoagYZAYEYAYIAWGhemICIFj8WIiCiFR5gkIhogmBoKGKJx2C6C5hniMgggqYwog0UoNGMZJiDiCZRgOLY0ECUAQICA==")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeSolid
var_Bar:Color := 0x1000000
var_Bar:[Def,exBarCaption] := "<%=%513%>"
var_Bar:[Def,exBarHAlignCaption] := 18
var_Bar1 := var_Chart:Bars:[Item,"Task"]
var_Bar1:Pattern := exPatternBox
var_Bar1:Color := RGB(164,164,164)
var_Bar1:StartColor := RGB(240,240,240)
var_Bar1:EndColor := var_Bar1:StartColor
var_Bar1:[Def,exBarCaption] := "<%= `<font ;6><fgcolor=0000FF><i>` + %C0 + ` ` + %C1 + ` ` + %C2 %>"
var_Bar1:[Def,exBarHAlignCaption] := 13
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("C1")
IColumn{var_Columns:Add("C2")}:Editor:EditType := EditType
IColumn{var_Columns:Add("C3")}:Editor:EditType := EditType
var_Column := IColumn{var_Columns:Add("Pos")}
var_Column:FormatColumn := "1 pos ``"
var_Column:AllowGroupBy := false
var_Column:Position := 0
var_Column:Width := 48
var_Column:AllowSizing := false
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarCaption := "Drag a <b>column</b> header here to group by that column."
oDCOCX_Exontrol1:AllowGroupBy := true
oDCOCX_Exontrol1:HasLines := exNoLine
oDCOCX_Exontrol1:LinesAtRoot := exNoLinesAtRoot
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.3"
var_Items:[CellValue,h,2] := "SubItem A.4"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.5"
var_Items:[CellValue,h,2] := "SubItem A.6"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.7"
var_Items:[CellValue,h,2] := "SubItem A.8"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "SubItem B.1"
var_Items:[CellValue,h,2] := "SubItem B.2"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "SubItem B.3"
var_Items:[CellValue,h,2] := "SubItem B.4"
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column1:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()
|
|
2089
|
How can I associate a box/note to a date into the control's header
local var_Chart as IChart
local var_Items,var_Items1 as IItems
local var_Note as INote
local var_Notes as INotes
local hLocked as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:HeaderHeight := 17
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 96
var_Chart:LevelCount := 2
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:[SelectItem,var_Items:AddItem("Item 2")] := true
var_Items:AddItem("Item 3")
var_Notes := oDCOCX_Exontrol1:Chart:Notes
var_Items1 := oDCOCX_Exontrol1:Items
var_Items1:[LockedItemCount,exTop] := 1
hLocked := var_Items1:[LockedItem,exTop,0]
var_Items1:[ItemHeight,hLocked] := 1
var_Note := var_Notes:Add("header",hLocked,SToD("20010107"),"Date:<br><%dd%>/<%mm%><br><b><%yyyy%></b>")
var_Note:[PartVisible,exNoteStart] := true
var_Note:[PartText,exNoteStart] := "<b><%d%></b>"
var_Note:[PartCanMove,exNoteEnd] := true
var_Note:[PartCanMove,exNoteStart] := true
var_Note:[PartVOffset,exNoteStart] := -9
var_Note:[PartVOffset,exNoteEnd] := 20
var_Note:[PartHOffset,exNoteEnd] := 20
var_Note:[PartBackColor,exNoteStart] := RGB(255,255,0)
var_Note:[PartFixedWidth,exNoteStart] := 18
oDCOCX_Exontrol1:EndUpdate()
|
|
2088
|
How can I define a column of button type
METHOD OCX_Exontrol1ButtonClick(Item,ColIndex,Key) CLASS MainDialog
// ButtonClick event - Occurs when user clicks on the cell's button.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
OutputDebugString(String2Psz( AsString(var_Items:[CellValue,Item,ColIndex]) ))
RETURN NIL
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Button")}
var_Column:[Def,exCellHasButton] := true
var_Column:[Def,exCellButtonAutoWidth] := false
var_Column:FormatColumn := "``"
var_Column:AllowSizing := false
var_Column:Width := 48
IColumn{oDCOCX_Exontrol1:Columns:Add("Second")}:FormatColumn := "` Item ` + 1 index ``"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Button 1")
var_Items:AddItem("Button 2")
var_Items:AddItem("Button 3 ")
oDCOCX_Exontrol1:EndUpdate()
|
|
2087
|
Is it possible to configure different colour/icon when there is a active filter
METHOD OCX_Exontrol1FilterChange() CLASS MainDialog
// FilterChange event - Occurs when the filter was changed.
oDCOCX_Exontrol1:[Background,exHeaderFilterBarButton] := oDCOCX_Exontrol1:FormatABC("value = 0 ? 0x1000001 : 0x10000FF ",oDCOCX_Exontrol1:Columns:[Item,0]:FilterType,nil,nil)
RETURN NIL
local var_Appearance as IAppearance
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:RenderType := -16777216
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQgmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYThdr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:[Background,exHeaderFilterBarButton] := 0x1000001
oDCOCX_Exontrol1:[Background,exCursorHoverColumn] := -1
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:BackColorHeader := RGB(255,255,255)
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Filter")}
var_Column:DisplayFilterButton := true
var_Column:AllowSort := false
var_Column:AllowDragging := false
var_Column:FilterList := exShowCheckBox
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column1:Filter := "Item B"
var_Column1:FilterType := exFilter
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
2086
|
ADODB Requery sample
METHOD OCX_Exontrol1ButtonClick(Item,ColIndex,Key) CLASS MainDialog
// ButtonClick event - Occurs when user clicks on the cell's button.
local cmd as _Command
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
cmd := _Command{"ADODB.Command"}
cmd:ActiveConnection := _Connection{oDCOCX_Exontrol1_Recordset{:DataSource}:ActiveConnection}
cmd:CommandText := "INSERT INTO Orders (EmployeeID) VALUES(12345)"
cmd:CommandType := 1
cmd:Execute(nil,nil,0)
_Recordset{oDCOCX_Exontrol1:DataSource}:Requery(0)
RETURN NIL
METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
// Error event - Fired when an internal error occurs.
OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL
local var_Items as IItems
local h as USUAL
local rs as _Recordset
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:ColumnAutoResize := false
rs := _Recordset{"ADODB.Recordset"}
rs:Open("Select * From Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",1,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:ConditionalFormats:Add("%1=12345",nil):BackColor := RGB(240,240,240)
var_Items := oDCOCX_Exontrol1:Items
var_Items:[LockedItemCount,exTop] := 1
h := var_Items:[LockedItem,exTop,0]
var_Items:[ItemDivider,h] := 0
var_Items:[CellHasButton,h,0] := true
var_Items:[CellValue,h,0] := "Requery (add a new record, using ADODB.Command)"
var_Items:[CellHAlignment,h,0] := CenterAlignment
oDCOCX_Exontrol1:EndUpdate()
|
|
2085
|
I am skinning the control's header-bar, but the background of the header-bar is shown on each item in the filter-bar drop down panel. What can I do
local var_Appearance as IAppearance
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQGhsCYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU8lORLUi+M4zSBPcZVTRtGShPDBKTjMKKYgkG4lVpRNa0PC1GTzQ6mazkKQLRADDIDVbAeL3LiMBy9LyLLItQALByua5mWhbcZyBCOPgBTrRb5zO58FjuTK7YLjMB7NrUNYtFaUMy2OpOCADIaecTNcaWLxPF2MY1HWYxVj2Jw3DuRJonKYBgggSRAlIYw6B0ThGFgPAkFUDAhBMfZRiGNAkFECZnm4YQdneJwqnsSQrGAAhWAIJBJBIQgFCQIBiEIAglgqYo0i4V4MEgRI9gSToYFSb4Fk6Y4+BmBZhFOJgTC8TBogQAArgqco4muCZOkOMJtgmYpIjYKg7GKE4uCUK4AAKKg2DwI4DiCZw5k6KJ2D6D4OHiag4DwIxiiQAArAqMosnEPBPAOIhOg+DozjIJ4PGSY4iEwPAkhKLhHUUSQsnKFCnkYU9MjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDhQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARViHH4HQOYmxuCpF2MsecEQVBvGQCcIQvA6i2CAAIARAQ=")
var_Appearance:Add(2,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjHCEEhsGIbJAGQBJCjWGodQLOEgzNC0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwHJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3aioOpLZrqOZZYzYFoABTuJzPMSyIhxXD8cweaZvSpLExVYK9BY3PbKMgxC77QgTIpDaQMNS6PjtF43PAALLFUaNYzoOKzABMHATBIXAYJCwIIR5G7ID4BbQcCQAHL9DBaEEIAEEISgGhMGZQmocgymmIRQkIEQ2BcGgbEIRQci8XaMBqTRVgSAZHG+S5pnOep+D6f4vjec5zn0fpfmgBgAH6TRoBYBoAh+eAmAiAgPFgNArgOQpIESdoEmCOAOAqBYfFGAgaEaBgYHYFYFmIB5UiGCJUgKCgmgeYoHk4BgCmKRQiCwApgHgYgyH8B54lQU4NkMeJlBoDgjkiXBTg0R54iYIR+koeQVBoKpkgkChKhEJBkF4SFEjkDgJhFQoeEmDJlBeehUhWJQJGIXoICWOQ6FeFIlhkfhlDsSJpiQVoamaSY2G6G5nAmRhpCOH5pkwVYdmeCZmHqHpnkmdhzhmaAIFiax8AABAEICA==")
oDCOCX_Exontrol1:BackColorHeader := 0x1000000
oDCOCX_Exontrol1:ForeColorHeader := RGB(128,128,128)
oDCOCX_Exontrol1:[Background,exHeaderFilterBarButton] := 0x2000000
oDCOCX_Exontrol1:[Background,exBackColorFilter] := RGB(255,255,255)
oDCOCX_Exontrol1:[Background,exForeColorFilter] := RGB(0,0,1)
oDCOCX_Exontrol1:[Background,exSelBackColorFilter] := 0x1ff8000
oDCOCX_Exontrol1:[Background,exSelForeColorFilter] := RGB(240,240,240)
oDCOCX_Exontrol1:[Background,exCursorHoverColumn] := -1
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:BackColorLevelHeader := oDCOCX_Exontrol1:BackColor
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Filter")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column:[Def,exHeaderPaddingLeft] := 2
var_Column:[Def,exHeaderPaddingRight] := 2
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("A")
var_Items:AddItem("B")
var_Items:AddItem("C")
var_Items:AddItem("D")
oDCOCX_Exontrol1:EndUpdate()
|
|
2084
|
I specify the ItemHeight for each row, but as soon as I click the chart section, the item's height is restored to default (not working). What could be the cause
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:Columns:Add("Types")
oDCOCX_Exontrol1:DrawGridLines := exHLines
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:DrawGridLines := exHLines
var_Chart:AllowCreateBar := exCreateBarAuto
var_Chart:AllowLinkBars := false
var_Chart:ResizeUnitScale := exHour
var_Chart:[PaneWidth,false] := 112
var_Chart:FirstVisibleDate := SToD("20010101")
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:OverlaidType := exOverlaidBarsStack
var_Bar:[Def,exBarCaption] := "<%=%9%>"
var_Bar:[Def,exBarHAlignCaption] := 18
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("ItemMinHeight")
var_Items:AddBar(h,"Task",SToD("20010107"),SToD("20010110"),"A1",nil)
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010112"),"A2",nil)
var_Items:[ItemMinHeight,h] := 64
var_Items:AddBar(var_Items:AddItem("Default (One)"),"Task",SToD("20010107"),SToD("20010110"),"A3",nil)
h := var_Items:AddItem("Default (Two)")
var_Items:AddBar(h,"Task",SToD("20010107"),SToD("20010110"),"A4",nil)
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010112"),"A5",nil)
h := var_Items:AddItem("ItemFixedHeight")
var_Items:AddBar(h,"Task",SToD("20010107"),SToD("20010110"),"A6",nil)
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010112"),"A7",nil)
var_Items:[ItemMinHeight,h] := 20
var_Items:[ItemMaxHeight,h] := 20
h := var_Items:AddItem("ItemMaxHeight")
var_Items:AddBar(h,"Task",SToD("20010107"),SToD("20010110"),"A8",nil)
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010112"),"A9",nil)
var_Items:[ItemMaxHeight,h] := 24
oDCOCX_Exontrol1:EndUpdate()
|
|
2083
|
The ItemHeight property is not working (method 2)
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:ScrollBySingleLine := true
IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}:Width := 128
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellSingleLine,var_Items:AddItem("This is a bit of text that should break the line"),0] := exCaptionWordWrap
h := var_Items:AddItem("")
var_Items:[ItemDivider,h] := 0
var_Items:[SelectableItem,h] := false
var_Items:[ItemDividerLineAlignment,h] := DividerCenter
var_Items:[ItemHeight,h] := 3
var_Items:[CellSingleLine,var_Items:AddItem("This is a bit of text that should break the line"),0] := exCaptionWordWrap
oDCOCX_Exontrol1:EndUpdate()
|
|
2082
|
The ItemHeight property is not working (method 1)
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:ScrollBySingleLine := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:Width := 128
var_Column:[Def,exCellSingleLine] := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("This is a bit of text that should break the line")
h := var_Items:AddItem("")
var_Items:[ItemDivider,h] := 0
var_Items:[SelectableItem,h] := false
var_Items:[ItemDividerLineAlignment,h] := DividerCenter
var_Items:[ItemMinHeight,h] := 3
var_Items:[ItemMaxHeight,h] := 3
var_Items:AddItem("This is a bit of text that should break the line")
oDCOCX_Exontrol1:EndUpdate()
|
|
2081
|
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeCheckColumns
local var_Columns as IColumns
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("City")
IColumn{var_Columns:Add("Start")}:Visible := false
IColumn{var_Columns:Add("End")}:Visible := false
oDCOCX_Exontrol1:[Description,exColumnsFloatBar] := "Show/Hide"
oDCOCX_Exontrol1:ColumnsFloatBarSortOrder := SortAscending
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeCheckColumns
oDCOCX_Exontrol1:EndUpdate()
|
|
2080
|
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeHiddenColumn
local var_Columns as IColumns
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("City")
IColumn{var_Columns:Add("Start")}:Visible := false
IColumn{var_Columns:Add("End")}:Visible := false
oDCOCX_Exontrol1:[Description,exColumnsFloatBar] := "Show"
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns
oDCOCX_Exontrol1:ColumnsFloatBarSortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()
|
|
2079
|
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeGroupByColumns
local var_Columns as IColumns
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("City")
var_Columns:Add("Start")
var_Columns:Add("End")
oDCOCX_Exontrol1:AllowGroupBy := true
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarCaption := "Drag a <b>column</b> header here to group by that column."
oDCOCX_Exontrol1:BackColorSortBar := RGB(250,250,250)
oDCOCX_Exontrol1:[Description,exColumnsFloatBar] := "Group-By"
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeGroupByColumns
oDCOCX_Exontrol1:ColumnsFloatBarSortOrder := SortAscending
oDCOCX_Exontrol1:Columns:[Item,"City"]:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()
|
|
2078
|
How can I advance to the next line, once the user presses the ENTER key
METHOD OCX_Exontrol1KeyDown(KeyCode,Shift) CLASS MainDialog
// KeyDown event - Occurs when the user presses a key while an object has the focus.
OutputDebugString(String2Psz( "KeyCode Before:" ))
OutputDebugString(String2Psz( AsString(KeyCode) ))
KeyCode := oDCOCX_Exontrol1:FormatABC("value = 13 ? 40 : value",KeyCode,nil,nil)
OutputDebugString(String2Psz( "KeyCode After:" ))
OutputDebugString(String2Psz( AsString(KeyCode) ))
RETURN NIL
local var_Columns as IColumns
local var_Editor,var_Editor1 as IEditor
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
var_Editor := IColumn{var_Columns:Add("A")}:Editor
var_Editor:Appearance := EtchedApp
var_Editor:EditType := EditType
var_Editor1 := IColumn{var_Columns:Add("B")}:Editor
var_Editor1:Appearance := EtchedApp
var_Editor1:EditType := EditType
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Item A.1")
var_Items:[CellValue,h0,1] := "Item B.1"
h0 := var_Items:AddItem("Item A.2")
var_Items:[CellValue,h0,1] := "Item B.2"
oDCOCX_Exontrol1:EndUpdate()
|
|
2077
|
I am using AddNew to add new records, but I can not see them into the control
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(Item,"Task",var_Items:[CellValue,Item,1],var_Items:[CellValue,Item,2],nil,nil)
RETURN NIL
METHOD OCX_Exontrol1ButtonClick(Item,ColIndex,Key) CLASS MainDialog
// ButtonClick event - Occurs when user clicks on the cell's button.
local var_Recordset as _Recordset
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
var_Recordset := _Recordset{oDCOCX_Exontrol1:DataSource}
var_Recordset:AddNew(nil,nil)
var_Recordset:Fields:[Item,"Name"]:Value := "Task New"
var_Recordset:Update(nil,nil)
RETURN NIL
local var_Fields as Fields
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
local rs as _Recordset
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
rs := _Recordset{"ADODB.Recordset"}
var_Fields := rs:Fields
var_Fields:Append("Name",8,0,nil,nil)
var_Fields:Append("Start",7,0,nil,nil)
var_Fields:Append("End",7,0,nil,nil)
rs:Open(nil,nil,nil,nil,0)
rs:AddNew(nil,nil)
rs:Fields:[Item,"Name"]:Value := "Task A"
rs:Fields:[Item,"Start"]:Value := SToD("20010104")
rs:Fields:[Item,"End"]:Value := SToD("20010110")
rs:Update(nil,nil)
rs:AddNew(nil,nil)
rs:Fields:[Item,"Name"]:Value := "Task B"
rs:Fields:[Item,"Start"]:Value := SToD("20010105")
rs:Fields:[Item,"End"]:Value := SToD("20010111")
rs:Update(nil,nil)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:[Item,"Start"]:[Def,exCellValueToItemBarProperty] := 1
oDCOCX_Exontrol1:Columns:[Item,"End"]:[Def,exCellValueToItemBarProperty] := 2
var_Items := oDCOCX_Exontrol1:Items
var_Items:[LockedItemCount,exTop] := 1
h := var_Items:[LockedItem,exTop,0]
var_Items:[ItemDivider,h] := 0
var_Items:[CellHasButton,h,0] := true
var_Items:[CellValue,h,0] := "AddNew"
var_Items:[CellHAlignment,h,0] := CenterAlignment
oDCOCX_Exontrol1:DetectAddNew := true
oDCOCX_Exontrol1:DetectDelete := true
oDCOCX_Exontrol1:EndUpdate()
|
|
2076
|
How can I create a new ADO recordset
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(Item,"Task",var_Items:[CellValue,Item,1],var_Items:[CellValue,Item,2],nil,nil)
RETURN NIL
local var_Fields as Fields
local var_Chart as IChart
local rs as _Recordset
oDCOCX_Exontrol1:BeginUpdate()
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADODB.Recordset"}
var_Fields := rs:Fields
var_Fields:Append("Name",8,0,nil,nil)
var_Fields:Append("Start",7,0,nil,nil)
var_Fields:Append("End",7,0,nil,nil)
rs:Open(nil,nil,nil,nil,0)
rs:AddNew(nil,nil)
rs:Fields := "Task A"
rs:Fields := SToD("20010104")
rs:Fields := SToD("20010110")
rs:Update(nil,nil)
rs:AddNew(nil,nil)
rs:Fields := "Task B"
rs:Fields := SToD("20010105")
rs:Fields := SToD("20010111")
rs:Update(nil,nil)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:[Item,"Start"]:[Def,exCellValueToItemBarProperty] := 1
oDCOCX_Exontrol1:Columns:[Item,"End"]:[Def,exCellValueToItemBarProperty] := 2
oDCOCX_Exontrol1:EndUpdate()
|
|
2075
|
Do do I get the DAO version I have installed
// Generate Source for 'Microsoft DAO 2.5/3.51 Compatibility Library(dao2535.tlb)' server from Tools\Automation Server...
OutputDebugString(String2Psz( _DBEngine{"DAO.DBEngine.35"}:Version ))
// Generate Source for 'Microsoft DAO 3.6 Object Library(dao360.dll)' server from Tools\Automation Server...
OutputDebugString(String2Psz( _DBEngine{"DAO.DBEngine.36"}:Version ))
// Generate Source for 'Microsoft Office 15.0 Access database engine Object Library(ACEDAO.DLL)' server from Tools\Automation Server...
OutputDebugString(String2Psz( _DBEngine{"DAO.DBEngine.120"}:Version ))
|
|
2074
|
How do I get a list of interfaces the object implemenets
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(Item,"Task",var_Items:[CellValue,Item,2],var_Items:[CellValue,Item,4],nil,nil)
RETURN NIL
local var_Chart as IChart
local rs as Recordset2
local var_PrivDBEngine as _DBEngine
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft Office 15.0 Access database engine Object Library(ACEDAO.DLL)' server from Tools\Automation Server...
var_PrivDBEngine := _DBEngine{"DAO.DBEngine.120"}
rs := Recordset2{var_PrivDBEngine:OpenDatabase("C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",nil,nil,nil):OpenRecordset("Orders",nil,nil,nil)}
OutputDebugString(String2Psz( AsString({"Exontrol.PropertiesList"}) ))
oDCOCX_Exontrol1:DataSource := Recordset2{rs}
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("19940804")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:[Item,2]:[Def,exCellValueToItemBarProperty] := 1
oDCOCX_Exontrol1:Columns:[Item,4]:[Def,exCellValueToItemBarProperty] := 2
oDCOCX_Exontrol1:EndUpdate()
|
|
2073
|
Do do I get the ADO version I have installed
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
OutputDebugString(String2Psz( "ADO Version:" ))
OutputDebugString(String2Psz( _Connection{"ADODB.Connection"}:Version ))
|
|
2072
|
DAO, ACCDB, 120
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(Item,"Task",var_Items:[CellValue,Item,2],var_Items:[CellValue,Item,4],nil,nil)
RETURN NIL
local var_Chart as IChart
local rs as Recordset2
local var_PrivDBEngine as _DBEngine
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft Office 15.0 Access database engine Object Library(ACEDAO.DLL)' server from Tools\Automation Server...
var_PrivDBEngine := _DBEngine{"DAO.DBEngine.120"}
rs := Recordset2{var_PrivDBEngine:OpenDatabase("C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",nil,nil,nil):OpenRecordset("Orders",nil,nil,nil)}
oDCOCX_Exontrol1:DataSource := Recordset2{rs}
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("19940804")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:[Item,2]:[Def,exCellValueToItemBarProperty] := 1
oDCOCX_Exontrol1:Columns:[Item,4]:[Def,exCellValueToItemBarProperty] := 2
oDCOCX_Exontrol1:EndUpdate()
|
|
2071
|
DAO, MDB, 120
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(Item,"Task",var_Items:[CellValue,Item,2],var_Items:[CellValue,Item,4],nil,nil)
RETURN NIL
local var_Chart as IChart
local rs as Recordset2
local var_PrivDBEngine as _DBEngine
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft Office 15.0 Access database engine Object Library(ACEDAO.DLL)' server from Tools\Automation Server...
var_PrivDBEngine := _DBEngine{"DAO.DBEngine.120"}
rs := Recordset2{var_PrivDBEngine:OpenDatabase("C:\Program Files\Exontrol\ExG2antt\sample\Access\misc.mdb",nil,nil,nil):OpenRecordset("Orders",nil,nil,nil)}
oDCOCX_Exontrol1:DataSource := Recordset2{rs}
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("19940804")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:[Item,2]:[Def,exCellValueToItemBarProperty] := 1
oDCOCX_Exontrol1:Columns:[Item,4]:[Def,exCellValueToItemBarProperty] := 2
oDCOCX_Exontrol1:EndUpdate()
|
|
2070
|
DAO, MDB
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(Item,"Task",var_Items:[CellValue,Item,2],var_Items:[CellValue,Item,4],nil,nil)
RETURN NIL
local var_Chart as IChart
local rs as Recordset
local var_PrivDBEngine as _DBEngine
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft DAO 3.6 Object Library(dao360.dll)' server from Tools\Automation Server...
var_PrivDBEngine := _DBEngine{"DAO.DBEngine.36"}
rs := var_PrivDBEngine:OpenDatabase("C:\Program Files\Exontrol\ExG2antt\sample\Access\misc.mdb",nil,nil,nil):OpenRecordset("Orders",nil,nil,nil)
oDCOCX_Exontrol1:DataSource := Recordset{rs}
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("19940804")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:[Item,2]:[Def,exCellValueToItemBarProperty] := 1
oDCOCX_Exontrol1:Columns:[Item,4]:[Def,exCellValueToItemBarProperty] := 2
oDCOCX_Exontrol1:EndUpdate()
|
|
2069
|
ADODB, ACCDB, x64
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(Item,"Task",var_Items:[CellValue,Item,2],var_Items:[CellValue,Item,4],nil,nil)
RETURN NIL
local var_Chart as IChart
local rs as _Recordset
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADODB.Recordset"}
rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",1,1,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("19940804")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:[Item,2]:[Def,exCellValueToItemBarProperty] := 1
oDCOCX_Exontrol1:Columns:[Item,4]:[Def,exCellValueToItemBarProperty] := 2
oDCOCX_Exontrol1:EndUpdate()
|
|
2068
|
ADOR, ACCDB
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(Item,"Task",var_Items:[CellValue,Item,2],var_Items:[CellValue,Item,4],nil,nil)
RETURN NIL
local var_Chart as IChart
local rs as _Recordset
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("19940804")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:[Item,2]:[Def,exCellValueToItemBarProperty] := 1
oDCOCX_Exontrol1:Columns:[Item,4]:[Def,exCellValueToItemBarProperty] := 2
oDCOCX_Exontrol1:EndUpdate()
|
|
2067
|
ADODB, MDB
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(Item,"Task",var_Items:[CellValue,Item,2],var_Items:[CellValue,Item,4],nil,nil)
RETURN NIL
local var_Chart as IChart
local rs as _Recordset
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADODB.Recordset"}
rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("19940804")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:[Item,2]:[Def,exCellValueToItemBarProperty] := 1
oDCOCX_Exontrol1:Columns:[Item,4]:[Def,exCellValueToItemBarProperty] := 2
oDCOCX_Exontrol1:EndUpdate()
|
|
2066
|
ADOR, MDB
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(Item,"Task",var_Items:[CellValue,Item,2],var_Items:[CellValue,Item,4],nil,nil)
RETURN NIL
local var_Chart as IChart
local rs as _Recordset
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("19940804")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:[Item,2]:[Def,exCellValueToItemBarProperty] := 1
oDCOCX_Exontrol1:Columns:[Item,4]:[Def,exCellValueToItemBarProperty] := 2
oDCOCX_Exontrol1:EndUpdate()
|
|
2065
|
I am using exCellValueToItemBarProperty, Is it possible to “disable” this synchronisation for one (or several) item (sample-2)
local var_Chart as IChart
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Tasks")
IColumn{var_Columns:Add("Start")}:[Def,exCellValueToItemBarProperty] := 1
IColumn{var_Columns:Add("End")}:[Def,exCellValueToItemBarProperty] := 2
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 196
var_Chart:AllowCreateBar := exCreateBarAuto
var_Items := oDCOCX_Exontrol1:Items
var_Items:AllowCellValueToItemBar := true
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20060921"),SToD("20060924"),nil,nil)
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20060922"),SToD("20060925"),nil,nil)
var_Items:[ItemBold,h] := true
var_Items:CellValueToItemBar(h,1,exBarStart,"newbar")
var_Items:CellValueToItemBar(h,2,exBarEnd,"newbar")
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20060923"),SToD("20060926"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
2064
|
I am using exCellValueToItemBarProperty, Is it possible to “disable” this synchronisation for one (or several) item (sample-1)
local var_Chart as IChart
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Tasks")
IColumn{var_Columns:Add("Start")}:[Def,exCellValueToItemBarProperty] := 1
IColumn{var_Columns:Add("End")}:[Def,exCellValueToItemBarProperty] := 2
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 196
var_Items := oDCOCX_Exontrol1:Items
var_Items:AllowCellValueToItemBar := true
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20060921"),SToD("20060924"),nil,nil)
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20060922"),SToD("20060925"),nil,nil)
var_Items:[FormatCell,h,1] := "``"
var_Items:[FormatCell,h,2] := "``"
var_Items:[ItemBold,h] := true
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20060923"),SToD("20060926"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
2063
|
How can I use the CRD (eXCRD format)
local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3 as IColumn
local var_Items as IItems
local dih,h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:SelBackMode := exTransparent
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Default")}
var_Column:[Def,exCellFormatLevel] := "[b=0]60;1[b=15]:60,((20;" + CHR(34) + "<fgcolor=808080>Dateigröße" + CHR(34) + "[b=1][a=2]:120,2[b=15])/(20;" + CHR(34) + "<fgcolor=808080>Erstellt am" + CHR(34) + "[a=2]:120,3[b=15])/(20;" + CHR(34) + "<fgcolor=808080>Zuletzt bearbeitet" + CHR(34) + "[b=4][a=2]:120,4[b=15]))"
var_Column:AllowSort := false
IColumn{oDCOCX_Exontrol1:Columns:Add(AsString(1))}:Visible := false
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add(AsString(2))}
var_Column1:Visible := false
var_Column1:Editor:EditType := EditType
var_Column1:FormatColumn := "1 index `A-Z`"
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add(AsString(3))}
var_Column2:Visible := false
var_Column2:Editor:EditType := EditType
var_Column2:FormatColumn := "1 index ``"
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add(AsString(4))}
var_Column3:Visible := false
var_Column3:Editor:EditType := EditType
var_Column3:FormatColumn := "date(``)"
dih := 48
oDCOCX_Exontrol1:DefaultItemHeight := dih
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesSolid
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:DrawGridLines := exRowLines
var_Chart:GridLineStyle := exGridLinesSolid
var_Chart:[PaneWidth,false] := 256
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:Bars:[Item,"Task"]:OverlaidType := exOverlaidBarsStackAutoArrange | exOverlaidBarsStack
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("")
var_Items:[CellValue,h,1] := "One"
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010112"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20010104"),SToD("20010114"),"B",nil)
var_Items:[ItemMaxHeight,h] := dih
h := var_Items:AddItem("")
var_Items:[CellValue,h,1] := "Two"
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010110"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"B",nil)
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010114"),"B2",nil)
var_Items:[ItemMaxHeight,h] := dih
h := var_Items:AddItem("")
var_Items:[CellValue,h,1] := "Three"
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010110"),"A",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
2062
|
Type of wraps the cell's caption support (Sample 2)
local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderSingleLine := false
oDCOCX_Exontrol1:HeaderHeight := 36
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:ScrollBySingleLine := true
var_Columns := oDCOCX_Exontrol1:Columns
var_Column := IColumn{var_Columns:Add("Single-Line (exCaptionSingleLine)")}
var_Column:Width := 96
var_Column:[Def,exCellValueFormat] := 1
var_Column:[Def,exCellSingleLine] := -1
var_Column:[Def,exCellVAlignment] := 0
var_Column1 := IColumn{var_Columns:Add("Word-Wrap (exCaptionWordWrap)")}
var_Column1:Width := 96
var_Column1:[Def,exCellValueFormat] := 1
var_Column1:[Def,exCellSingleLine] := 0
var_Column1:[Def,exCellVAlignment] := 0
var_Column1:FormatColumn := "%0"
var_Column2 := IColumn{var_Columns:Add("Break-Wrap (exCaptionBreakWrap)")}
var_Column2:Width := 96
var_Column2:[Def,exCellValueFormat] := 1
var_Column2:[Def,exCellSingleLine] := 1
var_Column2:[Def,exCellVAlignment] := 0
var_Column2:FormatColumn := "%0"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
var_Items:AddItem("This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line.")
oDCOCX_Exontrol1:EndUpdate()
|
|
2061
|
Type of wraps the cell's caption support (Sample 1)
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderSingleLine := false
oDCOCX_Exontrol1:HeaderHeight := 36
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:ScrollBySingleLine := true
IColumn{oDCOCX_Exontrol1:Columns:Add("Default")}:Width := 128
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
h := var_Items:AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
var_Items:[CellValueFormat,h,0] := exHTML
h := var_Items:AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
var_Items:[CellSingleLine,h,0] := exCaptionWordWrap
h := var_Items:AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
var_Items:[CellValueFormat,h,0] := exHTML
var_Items:[CellSingleLine,h,0] := exCaptionWordWrap
h := var_Items:AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
var_Items:[CellSingleLine,h,0] := exCaptionBreakWrap
h := var_Items:AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
var_Items:[CellValueFormat,h,0] := exHTML
var_Items:[CellSingleLine,h,0] := exCaptionBreakWrap
oDCOCX_Exontrol1:EndUpdate()
|
|
2060
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:ScrollBySingleLine := true
IColumn{oDCOCX_Exontrol1:Columns:Add("Default")}:Width := 128
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellSingleLine,var_Items:AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0] := exCaptionBreakWrap
var_Items:AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
oDCOCX_Exontrol1:EndUpdate()
|
|
2059
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:ScrollBySingleLine := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Default")}
var_Column:Width := 128
var_Column:[Def,exCellSingleLine] := 1
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
var_Items:AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
oDCOCX_Exontrol1:EndUpdate()
|
|
2058
|
The histogram is showing empty space, when expanding an item. What could be wrong
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesOutside
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 48
var_Chart:HistogramView := exHistogramNoGrouping | exHistogramLeafItems | exHistogramAllItems
var_Chart:Bars:[Item,"Task"]:HistogramPattern := exPatternBDiagonal
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project 1")
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 2"),"Task",SToD("20010103"),SToD("20010105"),nil,nil)
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Project 2")
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 1"),"Task",SToD("20010107"),SToD("20010110"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 2"),"Task",SToD("20010106"),SToD("20010108"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
2057
|
How can I change the visual appearance/color of the Filter For ... field
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:BackColorHeader := RGB(1,0,0)
oDCOCX_Exontrol1:ForeColorHeader := RGB(255,255,255)
oDCOCX_Exontrol1:[Background,exBackColorFilter] := oDCOCX_Exontrol1:BackColorHeader
oDCOCX_Exontrol1:[Background,exForeColorFilter] := oDCOCX_Exontrol1:ForeColorHeader
oDCOCX_Exontrol1:[Background,exHeaderFilterBarButton] := RGB(240,240,240)
oDCOCX_Exontrol1:[Background,exCursorHoverColumn] := -1
oDCOCX_Exontrol1:HeaderAppearance := Bump
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:FilterOnType := true
var_Column:DisplayFilterButton := true
var_Column:FilterList := exNoItems
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:EndUpdate()
|
|
2056
|
How can I display the cell's caption without spaces on both sides
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Default")}
var_Column:[Def,exCellValueFormat] := 1
var_Column:FormatColumn := "((trim(value) replace ` ` with ` `) replace ` ` with ` `) replace ` ` with `<bgcolor=FF0000> </bgcolor>`"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("")
var_Items:AddItem("Item A")
var_Items:AddItem(" Item B")
var_Items:AddItem(" Item C ")
oDCOCX_Exontrol1:EndUpdate()
|
|
2055
|
How can I highlight the spaces within the column (sample 2)
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Default")}
var_Column:[Def,exCellValueFormat] := 1
var_Column:FormatColumn := "`'` + ( value replace ` ` with `_` ) + `'`"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("")
var_Items:AddItem("Item A")
var_Items:AddItem(" Item B")
var_Items:AddItem(" Item C ")
oDCOCX_Exontrol1:EndUpdate()
|
|
2054
|
How can I highlight the spaces within the column (sample 1)
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Default")}
var_Column:[Def,exCellValueFormat] := 1
var_Column:FormatColumn := "len(value) = 0 ? `<bgcolor=FF0000> </bgcolor>` : ( value replace ` ` with `<bgcolor=FF0000> </bgcolor>` )"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("")
var_Items:AddItem("Item A")
var_Items:AddItem(" Item B")
var_Items:AddItem(" Item C ")
oDCOCX_Exontrol1:EndUpdate()
|
|
2053
|
How can I change the visual aspect of the drop down filter-calendar
local var_Column as IColumn
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[Background,exBackColorFilter] := RGB(0,0,1)
oDCOCX_Exontrol1:[Background,exForeColorFilter] := RGB(255,255,255)
oDCOCX_Exontrol1:[Background,exDateScrollRange] := RGB(255,255,255)
oDCOCX_Exontrol1:[Background,exDateHeader] := oDCOCX_Exontrol1:[Background,exBackColorFilter]
oDCOCX_Exontrol1:[Background,exDateScrollThumb] := RGB(128,128,128)
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}
var_Column:FilterType := exDate
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterDate := true
var_Column:DisplayFilterPattern := false
oDCOCX_Exontrol1:EndUpdate()
|
|
2052
|
How can I scroll the chart to ensure that a bar fits the chart's client area
METHOD OCX_Exontrol1ButtonClick(Item,ColIndex,Key) CLASS MainDialog
// ButtonClick event - Occurs when user clicks on the cell's button.
local dEnd,dScroll,dStart,kBar as USUAL
kBar := oDCOCX_Exontrol1:Items:[FirstItemBar,Item]
dStart := oDCOCX_Exontrol1:Items:[ItemBar,Item,kBar,exBarStart]
dEnd := oDCOCX_Exontrol1:Items:[ItemBar,Item,kBar,exBarEnd]
dScroll := oDCOCX_Exontrol1:FormatABC("(A+B)/2",dStart,dEnd,nil)
oDCOCX_Exontrol1:Chart:ScrollTo(dScroll,1)
RETURN NIL
local var_Chart as IChart
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesDot4
oDCOCX_Exontrol1:SelBackMode := exTransparent
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:OverviewVisible := exOverviewShowDateTimeScaleBottom | exOverviewAllowVerticalScroll | exOverviewShowAllVisible
var_Chart:OverviewHeight := 26
var_Chart:FirstVisibleDate := SToD("20110608")
var_Chart:AdjustLevelsToBase := true
var_Chart:[PaneWidth,false] := 64
var_Chart:UnitWidth := 14
var_Chart:LevelCount := 2
var_Chart:DrawGridLines := exAllLines
var_Chart:GridLineStyle := exGridLinesDot4
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:ColumnsFormatLevel := "" + CHR(34) + "" + CHR(34) + ":2,(" + CHR(34) + "" + CHR(34) + "/14;1/" + CHR(34) + "" + CHR(34) + "):14"
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Default")
var_Column := IColumn{var_Columns:Add("")}
var_Column:[Def,exCellHasButton] := true
var_Column:[Def,exCellBackColor] := 15790320
var_Column:Visible := false
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("T1"),"Task",SToD("20110609"),SToD("20110617"),nil,nil)
var_Items:AddBar(var_Items:AddItem("T2"),"Task",SToD("20120110"),SToD("20120117"),nil,nil)
var_Items:AddBar(var_Items:AddItem("T3"),"Task",SToD("20130219"),SToD("20130223"),nil,nil)
var_Items:AddBar(var_Items:AddItem("T4"),"Task",SToD("20141219"),SToD("20141223"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
2051
|
Is it possible to hide completely the list portion
local var_Chart as IChart
local var_ConditionalFormat as IConditionalFormat
local var_InsideZooms,var_InsideZooms1 as IInsideZooms
local var_Items as IItems
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderHeight := 32
oDCOCX_Exontrol1:OnResizeControl := exDisableSplitter | exResizeChart
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%CS0 = 1",nil)
var_ConditionalFormat:ApplyToBars := "Task"
var_ConditionalFormat:BarColor := RGB(255,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20110608")
var_Chart:AdjustLevelsToBase := true
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:AllowInsideZoom := true
var_Level := var_Chart:[Level,0]
var_Level:Alignment := CenterAlignment
var_Level:Label := "<b><%d%>-<%mmm%>-<%yyyy%>"
var_Level:Unit := exDay
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := "<%h%>"
var_Level1:Count := 8
var_Level1:Unit := exHour
var_Level1:FormatLabel := "date(int(dvalue)) case (#06/08/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>23/20'; 8 : 'Shift <b>2</b><br>38/30' ; 16 : 'Shift <b>3</b><br>24/24' ) ) ; #06/09/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>15/20'; 8 : 'Shift <b>2</b><br>30/32' ; 16 : 'Shift <b>3</b><br>26/24' ) ) )"
var_Chart:UnitWidth := 64
var_Chart:NonworkingDays := 0
var_Chart:ColumnsFormatLevel := "0"
var_Chart:AllowInsideZoom := true
var_Chart:DefaultInsideZoomFormat:InsideUnit := exMinute
var_Chart:AllowResizeInsideZoom := false
var_Chart:InsideZoomOnDblClick := false
var_InsideZooms := var_Chart:InsideZooms
var_InsideZooms:SplitBaseLevel := false
var_InsideZooms:DefaultWidth := 0
var_InsideZooms1 := var_Chart:InsideZooms
var_InsideZooms1:Add(SToD("20110609 08:00:00"))
var_InsideZooms1:Add(SToD("20110609 16:00:00"))
var_Chart:DrawGridLines := exAllLines
var_Chart:GridLineStyle := exGridLinesDot4
IColumn{oDCOCX_Exontrol1:Columns:Add("Defaul")}:[Def,exCellHasCheckBox] := true
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("T1"),"Task",SToD("20110608 08:00:00"),SToD("20110610"),nil,nil)
var_Items:AddBar(var_Items:AddItem("T2"),"Task",SToD("20110608 16:00:00"),SToD("20110610 08:00:00"),nil,nil)
var_Items:AddBar(var_Items:AddItem("T3"),"Task",SToD("20110609"),SToD("20110610"),nil,nil)
var_Items:[CellState,var_Items:[ItemByIndex,1],0] := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
2050
|
How can I find out what exBarWorkingCount represents
local var_Bar as IBar
local var_Chart as IChart
local var_Column,var_Column1,var_Column2 as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:AllowSizing := false
var_Column:Width := 42
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Format")}
var_Column1:[Def,exCellValueToItemBarProperty] := 258
var_Column1:FormatColumn := "trim((1:=int((0:=value)/365) ? =:1 + ` year(s) ` : ``) + (1:=int((0:=(=:0 - (=:1*365)))/31) ? =:1 + ` month(s) ` : ``) + (1:=int((0:=(=:0 - (=:1*31)))/7) ? =:1 + ` week(s) ` : ``) + (1:=int((0:=(=:0 - (=:1*7)))/1) ? =:1 + ` day(s) ` : ``) + (1:=int((0:=(=:0 - =:1 + 1/24/60/60/2))*24) ? =:1 + ` hour(s) ` : ``) + (1:=int((0:=(=:0*24 - =:1))*60) ? =:1 + ` min(s) ` : ``) + (1:=int((0:=(=:0*60 - =:1))*60) ? =:1 + ` sec(s)` : ``))"
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Value")}
var_Column2:[Def,exCellValueToItemBarProperty] := 258
var_Column2:SortType := SortNumeric
var_Column2:Editor:EditType := EditType
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesSolid
oDCOCX_Exontrol1:SelBackColor := RGB(204,232,255)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:FirstVisibleDate := SToD("20090406")
var_Chart:[PaneWidth,false] := 256
var_Chart:LevelCount := 2
var_Chart:UnitScale := exHour
var_Chart:NonworkingHours := 15728767
var_Chart:ShowNonworkingDates := false
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingHours := false
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:[Def,exBarKeepWorkingCount] := true
var_Chart:AllowLinkBars := false
var_Chart:DrawGridLines := exRowLines
var_Chart:GridLineStyle := exGridLinesSolid
var_Chart:[Level,0]:DrawGridLines := true
var_Chart:ResizeUnitScale := exMinute
var_Chart:ResizeUnitCount := 15
var_Chart:[Label,exMinute] := "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%><||>15"
var_Chart:AllowZoomOnFly := exZoomOnFlyIncludeNeighborItems | exZoomOnFly
var_Chart:BackColorZoomOnFly := RGB(255,255,0)
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("")
var_Items:[SelectableItem,h] := false
var_Items:[SortableItem,h] := false
var_Items:AddBar(var_Items:AddItem("T1"),"Task",SToD("20090406 10:00:00"),SToD("20090406 13:00:00"),nil,nil)
var_Items:AddBar(var_Items:AddItem("T2"),"Task",SToD("20090406 10:00:00"),SToD("20090406 16:00:00"),nil,nil)
var_Items:AddBar(var_Items:AddItem("T3"),"Task",SToD("20090406 10:00:00"),SToD("20090406 19:00:00"),nil,nil)
h := var_Items:AddItem("")
var_Items:[SelectableItem,h] := false
var_Items:[SortableItem,h] := false
oDCOCX_Exontrol1:EndUpdate()
|
|
2049
|
How can I hide the filter bar description
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Filter")}
var_Column:DisplayFilterButton := true
var_Column:FilterType := exFilter
var_Column:Filter := "B"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("A")
var_Items:AddItem("B")
var_Items:AddItem("C")
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:FilterBarHeight := 0
oDCOCX_Exontrol1:EndUpdate()
|
|
2048
|
How can I add a break bar
local var_Bar as IBar
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:AllowSizing := false
var_Column:Width := 42
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Working")}
var_Column1:[Def,exCellValueToItemBarProperty] := 258
var_Column1:FormatColumn := "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesSolid
oDCOCX_Exontrol1:SelBackColor := RGB(204,232,255)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:FirstVisibleDate := SToD("20090406")
var_Chart:[PaneWidth,false] := 164
var_Chart:LevelCount := 2
var_Chart:UnitScale := exHour
var_Chart:NonworkingHours := 15728767
var_Chart:ShowNonworkingDates := false
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingHours := false
var_Bar := var_Chart:Bars:Add("Task:Split")
var_Bar:[Def,exBarKeepWorkingCount] := true
var_Bar:Shortcut := "Task"
var_Chart:AllowLinkBars := false
var_Chart:DrawGridLines := exRowLines
var_Chart:GridLineStyle := exGridLinesSolid
var_Chart:[Level,0]:DrawGridLines := true
var_Chart:ResizeUnitScale := exMinute
var_Chart:ResizeUnitCount := 15
var_Chart:[Label,exMinute] := "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%><||>15"
var_Chart:AllowZoomOnFly := exZoomOnFlyIncludeNeighborItems | exZoomOnFly
var_Chart:BackColorZoomOnFly := RGB(255,255,0)
var_Chart:AllowNonworkingBars := true
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("")
h := var_Items:AddItem("T1")
var_Items:[ItemNonworkingUnits,h,false] := "(weekday(value) in (0,6)) or (timeF(value) < `07:00:00`) or (timeF(value) >= `20:00:00`) "
var_Items:AddBar(h,"",SToD("20090406 07:30:00"),SToD("20090406 09:30:00"),"A","<c><font ;4>break<br>bar")
var_Items:[ItemBar,h,"A",exBarTreatAsNonworking] := true
var_Items:AddBar(h,"Task",SToD("20090406 10:00:00"),SToD("20090406 12:00:00"),nil,nil)
var_Items:AddBar(var_Items:AddItem("T2"),"Task",SToD("20090406 10:00:00"),SToD("20090406 17:45:00"),nil,nil)
var_Items:AddItem("")
oDCOCX_Exontrol1:EndUpdate()
|
|
2047
|
It seems the ResizeUnitCount have no effect on the ZoomOnFly feature, is it normal
local var_Bar as IBar
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:AllowSizing := false
var_Column:Width := 42
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Working")}
var_Column1:[Def,exCellValueToItemBarProperty] := 258
var_Column1:FormatColumn := "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesSolid
oDCOCX_Exontrol1:SelBackColor := RGB(204,232,255)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:FirstVisibleDate := SToD("20090406")
var_Chart:[PaneWidth,false] := 164
var_Chart:LevelCount := 2
var_Chart:UnitScale := exHour
var_Chart:NonworkingHours := 15728767
var_Chart:ShowNonworkingDates := false
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingHours := false
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:[Def,exBarKeepWorkingCount] := true
var_Chart:AllowLinkBars := false
var_Chart:DrawGridLines := exRowLines
var_Chart:GridLineStyle := exGridLinesSolid
var_Chart:[Level,0]:DrawGridLines := true
var_Chart:ResizeUnitScale := exMinute
var_Chart:ResizeUnitCount := 15
var_Chart:[Label,exMinute] := "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%><||>15"
var_Chart:AllowZoomOnFly := exZoomOnFlyIncludeNeighborItems | exZoomOnFly
var_Chart:BackColorZoomOnFly := RGB(255,255,0)
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("")
var_Items:AddBar(var_Items:AddItem("T1"),"Task",SToD("20090406 10:00:00"),SToD("20090406 12:00:00"),nil,nil)
var_Items:AddBar(var_Items:AddItem("T2"),"Task",SToD("20090406 10:00:00"),SToD("20090406 17:45:00"),nil,nil)
var_Items:AddItem("")
oDCOCX_Exontrol1:EndUpdate()
|
|
2046
|
Export Data in HTML format
METHOD OCX_Exontrol1AddGroupItem(Item) CLASS MainDialog
// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ItemBold,Item] := true
var_Items:AddBar(Item,"Summary",var_Items:[CellValue,Item,2],var_Items:[CellValue,Item,4],nil,nil)
var_Items:DefineSummaryBars(Item,"",-3,"")
RETURN NIL
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local var_Items as IItems
local i as USUAL
var_Items := oDCOCX_Exontrol1:Items
i := var_Items:[ItemToIndex,Item]
var_Items:AddBar(Item,"Task",SToD("20080102"),SToD("20080109"),"",nil)
var_Items:[ItemBar,Item,"",exBarMove] := i
var_Items:[ItemBar,Item,"",exBarDuration] := i
RETURN NIL
local var_Appearance as IAppearance
local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_ConditionalFormat,var_ConditionalFormat1 as IConditionalFormat
local var_Items as IItems
local var_ShellBrowserWindow as IWebBrowser2
local sFile as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1:FilterBarCaption := "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarShowCloseIfRequired | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptContainsAny
oDCOCX_Exontrol1:SingleSort := false
oDCOCX_Exontrol1:AllowGroupBy := true
oDCOCX_Exontrol1:BackColorSortBar := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABOUGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCMQwAFBIbhrE4ZBjHGQRUgyI43RhHUBzVIUBxDEaTZLlEYJBgeHYhDJPcaUVDcWQHGyeZwjSgpKoWSJIU5NcggPDgEwTKCmKlTAKoSzJMyEmwWRAdVTZLSEaxierKPhyWT/XgAF4PfDFKRXFqXY5mKZJFqKOI8TxINgxPQMGyrBqraLqKwQGrGCQKSBhUZ3dS2JR3OSlYRuQAMVgOXoDZhPWZXbDtSzPE63NgtOR5DiGWalABoeoxRa9cz3ViCJSrGTqIoINIzZLHFQbPpdAYdP6BeIjXhhZxBBuLZXmEOh9CcNoni2N4MjWVodh+DpfBeLJinsWR9AyYwVAkGBhEAFphGiRogDEGBamkFgtjcZgHiMbgehYaQhAIEIREAaQYkcQZUHIGRUGQDBOEaBAhDYDxGkMZAkCgeoagYZAYEYAYIAWGhemICIFj8WIiCiFR5gkIhogmBoKGKJx2C6C5hniMgggqYwog0UoNGMZJiDiCZRgOLY0ECUAQICA==")
var_Appearance:RenderType := -268435456
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:DrawGridLines := exAllLines
var_Chart:[PaneWidth,false] := 196
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:FirstWeekDay := exMonday
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeSolid
var_Bar:Color := 0x1808080
var_Bar:Height := 7
var_Bar:[Def,exBarCaption] := "<%=%513%>"
var_Bar:[Def,exBarHAlignCaption] := 18
var_Bar1 := var_Chart:Bars:[Item,"Task"]
var_Bar1:[Def,exBarCaption] := "<%=(%2-%1) in (3,5) ? %513 : `` %>"
var_Bar1:[Def,exBarHAlignCaption] := 18
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("(%2 - %1) = 3","K3")
var_ConditionalFormat:ForeColor := RGB(255,0,0)
var_ConditionalFormat:BarColor := var_ConditionalFormat:ForeColor
var_ConditionalFormat:ApplyToBars := "Task"
var_ConditionalFormat1 := oDCOCX_Exontrol1:ConditionalFormats:Add("(%2 - %1) = 5","K5")
var_ConditionalFormat1:ForeColor := RGB(0,255,0)
var_ConditionalFormat1:BarColor := var_ConditionalFormat1:ForeColor
var_ConditionalFormat1:ApplyToBars := "Task"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Tasks")}:[Def,exCellHasCheckBox] := true
var_Column := IColumn{var_Columns:Add("Start")}
var_Column:[Def,exCellValueToItemBarProperty] := 1
var_Column:[Def,exCellValueToItemBarKey] := ""
var_Column1 := IColumn{var_Columns:Add("End")}
var_Column1:[Def,exCellValueToItemBarProperty] := 2
var_Column1:[Def,exCellValueToItemBarKey] := ""
var_Items := oDCOCX_Exontrol1:Items
var_Items:AllowCellValueToItemBar := true
var_Items:AddItem("Task A")
var_Items:AddItem("Task A")
var_Items:AddItem("Task A")
var_Items:AddItem("Task A")
var_Items:AddItem("Task B")
var_Items:AddItem("Task B")
var_Items:AddItem("Task B")
var_Items:AddItem("Task C")
oDCOCX_Exontrol1:Columns:[Item,"Tasks"]:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()
sFile := "c:/temp/export.html"
oDCOCX_Exontrol1:Export(sFile,"vis")
// Generate Source for 'Microsoft Internet Controls(ieframe.dll)' server from Tools\Automation Server...
var_ShellBrowserWindow := IWebBrowser2{"InternetExplorer.Application"}
var_ShellBrowserWindow:Navigate2(sFile,nil,nil,nil,nil)
|
|
2045
|
Export Data in CSV format
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local var_Items as IItems
local i as USUAL
var_Items := oDCOCX_Exontrol1:Items
i := var_Items:[ItemToIndex,Item]
var_Items:AddBar(Item,"Task",SToD("20080102"),SToD("20080109"),"",nil)
var_Items:[ItemBar,Item,"",exBarMove] := i
var_Items:[ItemBar,Item,"",exBarDuration] := i
RETURN NIL
local var_Bar as IBar
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_ConditionalFormat,var_ConditionalFormat1 as IConditionalFormat
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1:FilterBarCaption := "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarShowCloseIfRequired | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptContainsAny
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 196
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20080101")
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:[Def,exBarCaption] := "<%=(%2-%1) in (3,5) ? %513 : `` %>"
var_Bar:[Def,exBarHAlignCaption] := 18
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("(%2 - %1) = 3","K3")
var_ConditionalFormat:ForeColor := RGB(255,0,0)
var_ConditionalFormat:BarColor := var_ConditionalFormat:ForeColor
var_ConditionalFormat:ApplyToBars := "Task"
var_ConditionalFormat1 := oDCOCX_Exontrol1:ConditionalFormats:Add("(%2 - %1) = 5","K5")
var_ConditionalFormat1:ForeColor := RGB(0,255,0)
var_ConditionalFormat1:BarColor := var_ConditionalFormat1:ForeColor
var_ConditionalFormat1:ApplyToBars := "Task"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Tasks")}:[Def,exCellHasCheckBox] := true
var_Column := IColumn{var_Columns:Add("Start")}
var_Column:[Def,exCellValueToItemBarProperty] := 1
var_Column:[Def,exCellValueToItemBarKey] := ""
var_Column1 := IColumn{var_Columns:Add("End")}
var_Column1:[Def,exCellValueToItemBarProperty] := 2
var_Column1:[Def,exCellValueToItemBarKey] := ""
var_Items := oDCOCX_Exontrol1:Items
var_Items:AllowCellValueToItemBar := true
var_Items:AddItem("Task A")
var_Items:AddItem("Task A")
var_Items:AddItem("Task A")
var_Items:AddItem("Task A")
var_Items:AddItem("Task B")
var_Items:AddItem("Task B")
var_Items:AddItem("Task B")
var_Items:AddItem("Task C")
oDCOCX_Exontrol1:EndUpdate()
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Export("","vis")) ))
|
|
2044
|
I want to be able to detect when a user clicks on a row in the chart that is not populated
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
local date,item,sMessage as USUAL
item := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,col,hit]
date := oDCOCX_Exontrol1:Chart:[DateFromPoint,-1,-1]
sMessage := oDCOCX_Exontrol1:FormatABC("(not(A = 0) ? `chart` : `list`) + ` ` + (not(B = 0) ? `item` : `empty`) ",date,item,nil)
OutputDebugString(String2Psz( AsString(sMessage) ))
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 128
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20180101")
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20180102"),SToD("20180112"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20180103"),SToD("20180113"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20180104"),SToD("20180114"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
2043
|
Is it possible to have multiple calendars. A calendar for each row for example. Reason : some of our lines work 2 shifts but some also have a night shift
local var_Bars as IBars
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,sCalendar1,sCalendar2,sCalendar3,sCalendar4 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Working")}
var_Column:[Def,exCellValueToItemBarProperty] := 258
var_Column:FormatColumn := "((1:=int(0:=( 24*int(value) + (value - int(value) + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20090406")
var_Chart:[PaneWidth,false] := 148
var_Chart:LevelCount := 2
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingDates := false
var_Bars := var_Chart:Bars
var_Bars:Add("Task:Split"):Shortcut := "Task"
var_Bars:[Item,"Task"]:[Def,exBarKeepWorkingCount] := true
var_Chart:[Label,exHour] := "<%h%><||><||>65536"
var_Chart:[Level,0]:FormatLabel := "`<font small fonts;6>` + value"
var_Chart:[Level,1]:FormatLabel := "len(value) = 2 ? (`<font small fonts;4>` + (value left 1) + `<br>` + (value right 1) ) : (`<font small fonts;4>` + ` <br>` + (value left 1) + `` )"
var_Chart:UnitScale := exHour
var_Chart:UnitWidth := 9
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Items := oDCOCX_Exontrol1:Items
sCalendar1 := "weekday(value) in (0,6) or (hour(value) < 6) or (hour(value) > 18)"
h := var_Items:AddItem("Shift 1")
var_Items:[ItemNonworkingUnits,h,false] := AsString(sCalendar1)
var_Items:AddBar(h,"Task",SToD("20090406"),SToD("20090407"),nil,nil)
h := var_Items:AddItem("Shift 1")
var_Items:[ItemNonworkingUnits,h,false] := AsString(sCalendar1)
var_Items:AddBar(h,"Task",SToD("20090406"),SToD("20090408"),nil,nil)
sCalendar2 := "weekday(value) in (0,6) or (hour(value) < 8) or (hour(value) > 14)"
h := var_Items:AddItem("Shift 2")
var_Items:[ItemNonworkingUnits,h,false] := AsString(sCalendar2)
var_Items:AddBar(h,"Task",SToD("20090406"),SToD("20090407"),nil,nil)
h := var_Items:AddItem("Shift 2")
var_Items:[ItemNonworkingUnits,h,false] := AsString(sCalendar2)
var_Items:AddBar(h,"Task",SToD("20090406"),SToD("20090408"),nil,nil)
sCalendar3 := "weekday(value) in (0,6) or 0 = ( hour(value) mod 3 ) "
h := var_Items:AddItem("Shift 3")
var_Items:[ItemNonworkingUnits,h,false] := AsString(sCalendar3)
var_Items:AddBar(h,"Task",SToD("20090406"),SToD("20090407"),nil,nil)
h := var_Items:AddItem("Shift 3")
var_Items:[ItemNonworkingUnits,h,false] := AsString(sCalendar3)
var_Items:AddBar(h,"Task",SToD("20090406"),SToD("20090408"),nil,nil)
sCalendar4 := "weekday(value) in (0,6)"
h := var_Items:AddItem("Shift 3")
var_Items:[ItemNonworkingUnits,h,false] := AsString(sCalendar4)
var_Items:AddBar(h,"Task",SToD("20090406"),SToD("20090407"),nil,nil)
h := var_Items:AddItem("Shift 3")
var_Items:[ItemNonworkingUnits,h,false] := AsString(sCalendar4)
var_Items:AddBar(h,"Task",SToD("20090406"),SToD("20090408"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
2042
|
Is it possible to check multiple-items at once
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local var_Items as IItems
local bHasParent as USUAL
bHasParent := oDCOCX_Exontrol1:FormatABC("value != 0",oDCOCX_Exontrol1:Items:[ItemParent,Item],nil,nil)
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellHasCheckBox,Item,0] := false
RETURN NIL
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellValueFormat] := 1
var_Column:FormatColumn := "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SingleSel := false
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
hChild := var_Items:InsertItem(h,nil,"Task 2")
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:[ExpandItem,h] := true
var_Items:[LockedItemCount,exTop] := 1
var_Items:[CellValue,var_Items:[LockedItem,exTop,0],0] := "<c>Select multiple items and press the <b>SPACE</b> key"
oDCOCX_Exontrol1:EndUpdate()
|
|
2041
|
How can I prevent changing the start/end colors of the bar, when ItemBar(exBarColor) property is applied
local var_Bar,var_Bar1 as IBar
local var_Bars as IBars
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:VisualAppearance:Add(1,"E:\Exontrol\ExButton\sample\EBN\Assorted\bhframe.ebn")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 96
var_Bars := oDCOCX_Exontrol1:Chart:Bars
var_Bars:AddShapeCorner(12345,1)
var_Bars:AddShapeCorner(999,2)
var_Bars:AddShapeCorner(1049,3)
var_Bar := var_Bars:Add("T1")
var_Bar:StartShape := 0x3020 | exShapeIconVBar | exShapeIconRight
var_Bar:EndShape := 0x3e0 | exShapeIconLeft
var_Bar:Pattern := exPatternNDot
var_Bar:StartColor := RGB(0,255,0)
var_Bar:Color := 0x1000000
var_Bar:EndColor := RGB(255,0,0)
var_Bar:[Def,exBarCaption] := "<%=`<font ;6> ` + %0 + ``%>"
var_Bar:[Def,exBarHAlignCaption] := 18
var_Bar1 := var_Bars:Add("T2")
var_Bar1:StartShape := 0x3020 | exShapeIconVBar | exShapeIconRight
var_Bar1:EndShape := 0x400 | exShapeIconVBar | exShapeIconRight
var_Bar1:Pattern := exPatternNDot
var_Bar1:StartColor := -1
var_Bar1:Color := 0x1000000
var_Bar1:EndColor := -1
var_Bar1:[Def,exBarCaption] := "<%=`<font ;6> ` + %0 + ``%>"
var_Bar1:[Def,exBarHAlignCaption] := 18
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item 1")
var_Items:AddBar(h,"T1",SToD("20010102"),SToD("20010104"),nil,nil)
h := var_Items:AddItem("Item 2")
var_Items:AddBar(h,"T1",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:[ItemBar,h,"",exBarColor] := 65280
h := var_Items:AddItem("Item 3")
var_Items:AddBar(h,"T1",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:[ItemBar,h,"",exBarColor] := 255
h := var_Items:AddItem("Item 4")
var_Items:AddBar(h,"T2",SToD("20010102"),SToD("20010104"),nil,nil)
h := var_Items:AddItem("Item 5")
var_Items:AddBar(h,"T2",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:[ItemBar,h,"",exBarColor] := 65280
h := var_Items:AddItem("Item 6")
var_Items:AddBar(h,"T2",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:[ItemBar,h,"",exBarColor] := 255
oDCOCX_Exontrol1:EndUpdate()
|
|
2040
|
How can I get the icon from the cell when using the Items.CellImages property (icon index)
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
local i as USUAL
i := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? ( ( (value bitand 0xFFFF0000) bitshift 16 ) array B split `,` ) : `no image`",hit,oDCOCX_Exontrol1:Items:[CellImages,i,c],nil)) ))
RETURN NIL
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellImages,var_Items:AddItem("Item 1"),0] := "3,2,1"
var_Items:[CellImages,var_Items:AddItem("Item 2"),0] := "2,3"
var_Items:[CellImages,var_Items:AddItem("Item 3"),0] := "2,"
oDCOCX_Exontrol1:EndUpdate()
|
|
2039
|
How can I get the icon from the cell when using the Items.CellImages property (icon position within the cell)
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
local i as USUAL
i := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit,nil,nil)) ))
RETURN NIL
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellImages,var_Items:AddItem("Item 1"),0] := "3,2,1"
var_Items:[CellImages,var_Items:AddItem("Item 2"),0] := "2,3"
var_Items:[CellImages,var_Items:AddItem("Item 3"),0] := "2"
oDCOCX_Exontrol1:EndUpdate()
|
|
2038
|
I have an EBN bar. Now if I apply an additional color to the bar, e,g, yellow, the bar is displayed as "dark yellow", which I assume is due to the black EBN color. How can I get the more "bright yellow" color
METHOD OCX_Exontrol1AddGroupItem(Item) CLASS MainDialog
// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
local var_Items as IItems
local l as USUAL
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ItemDividerLine,Item] := EmptyLine
var_Items:AddBar(Item,"Summary",SToD("20171202"),SToD("20171202"),nil,nil)
var_Items:DefineSummaryBars(Item,"",-3,"")
l := var_Items:[GroupItem,Item]
var_Items:[CellSingleLine,Item,l] := exCaptionWordWrap
var_Items:[CellBold,Item,l] := true
var_Items:[ItemBackColor,Item] := RGB(190,190,190)
oDCOCX_Exontrol1:Chart:[ItemBackColor,Item] := RGB(190,190,190)
RETURN NIL
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171210"),nil,nil)
RETURN NIL
local var_Appearance as IAppearance
local var_Bar as IBar
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABOUGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCMQwAFBIbhrE4ZBjHGQRUgyI43RhHUBzVIUBxDEaTZLlEYJBgeHYhDJPcaUVDcWQHGyeZwjSgpKoWSJIU5NcggPDgEwTKCmKlTAKoSzJMyEmwWRAdVTZLSEaxierKPhyWT/XgAF4PfDFKRXFqXY5mKZJFqKOI8TxINgxPQMGyrBqraLqKwQGrGCQKSBhUZ3dS2JR3OSlYRuQAMVgOXoDZhPWZXbDtSzPE63NgtOR5DiGWalABoeoxRa9cz3ViCJSrGTqIoINIzZLHFQbPpdAYdP6BeIjXhhZxBBuLZXmEOh9CcNoni2N4MjWVodh+DpfBeLJinsWR9AyYwVAkGBhEAFphGiRogDEGBamkFgtjcZgHiMbgehYaQhAIEIREAaQYkcQZUHIGRUGQDBOEaBAhDYDxGkMZAkCgeoagYZAYEYAYIAWGhemICIFj8WIiCiFR5gkIhogmBoKGKJx2C6C5hniMgggqYwog0UoNGMZJiDiCZRgOLY0ECUAQICA==")
var_Appearance:RenderType := -268435456
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 342
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeSolid
var_Bar:Color := 0x1ff0000
var_Bar:[Def,exBarCaption] := "<%=%513%>"
var_Bar:[Def,exBarHAlignCaption] := 18
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("C1")
var_Columns:Add("C2")
var_Columns:Add("C3")
var_Column := IColumn{var_Columns:Add("Pos")}
var_Column:FormatColumn := "1 pos ``"
var_Column:AllowGroupBy := false
var_Column:Position := 0
var_Column:Width := 48
var_Column:AllowSizing := false
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarCaption := "Drag a <b>column</b> header here to group by that column."
oDCOCX_Exontrol1:AllowGroupBy := true
oDCOCX_Exontrol1:HasLines := exNoLine
oDCOCX_Exontrol1:LinesAtRoot := exNoLinesAtRoot
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "SubItem B.1"
var_Items:[CellValue,h,2] := "SubItem B.2"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "SubItem B.1"
var_Items:[CellValue,h,2] := "SubItem B.2"
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column1:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()
|
|
2037
|
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop
local var_Appearance as IAppearance
local var_Columns as IColumns
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
var_Columns:Add("Column 2")
var_Columns:Add("Column 3")
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVIUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBeEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIBICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokGKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=")
var_Appearance:Add(2,"CP:1 0 -36 0 0")
oDCOCX_Exontrol1:[Background,exColumnsPositionSign] := 0x2000000
oDCOCX_Exontrol1:EndUpdate()
|
|
2036
|
Overlaid-Types
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local var_Items as IItems
local barName as USUAL
var_Items := oDCOCX_Exontrol1:Items
barName := var_Items:[ItemData,Item]
var_Items:AddBar(Item,barName,SToD("20010102"),SToD("20010104"),"A1",nil)
var_Items:AddBar(Item,barName,SToD("20010103"),SToD("20010105"),"A2",nil)
var_Items:AddBar(Item,barName,SToD("20010104"),SToD("20010107"),"A3",nil)
var_Items:AddBar(Item,barName,SToD("20010105"),SToD("20010108"),"A4",nil)
RETURN NIL
local var_Bar,var_Bar1,var_Bar2,var_Bar3,var_Bar4,var_Bar5 as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 22
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
oDCOCX_Exontrol1:DrawGridLines := exHLines
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:DrawGridLines := exHLines
var_Chart:ShowNonworkingDates := false
var_Chart:[PaneWidth,false] := 164
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:LevelCount := 2
var_Chart:Bars:Copy("Task","Intersect"):Color := RGB(255,0,0)
var_Chart:Bars:[Item,"Task"]:OverlaidType := exOverlaidBarsNone
var_Bar := var_Chart:Bars:Copy("Task","Task-Transparent")
var_Bar:OverlaidType := exOverlaidBarsNone
var_Bar:[Def,exBarTransparent] := 50
var_Bar:Pattern := exPatternBox
var_Bar:Color := RGB(0,0,0)
var_Bar:StartColor := RGB(80,80,255)
var_Bar:EndColor := var_Bar:StartColor
var_Chart:Bars:Copy("Task","Task-Offset"):OverlaidType := exOverlaidBarsOffset
var_Bar1 := var_Chart:Bars:Copy("Task","Task-OffsetTransparent")
var_Bar1:OverlaidType := exOverlaidBarsTransparent | exOverlaidBarsOffset
var_Bar1:[Overlaid,exOverlaidBarsTransparent] := 75
var_Bar2 := var_Chart:Bars:Copy("Task","Task-Intersect")
var_Bar2:OverlaidType := exOverlaidBarsIntersect
var_Bar2:[Overlaid,exOverlaidBarsIntersect] := "Intersect"
var_Chart:Bars:Copy("Task","Task-Stack"):OverlaidType := exOverlaidBarsStack
var_Bar3 := var_Chart:Bars:Copy("Task","Task-StackAutoArrange")
var_Bar3:OverlaidType := exOverlaidBarsStackAutoArrange | exOverlaidBarsStack
var_Bar3:Color := RGB(255,0,0)
var_Bar3:OverlaidGroup := "Task"
var_Bar4 := var_Chart:Bars:Copy("Task","Task-Cascade")
var_Bar4:OverlaidType := exOverlaidBarsCascade
var_Bar4:Color := RGB(255,0,0)
var_Bar4:OverlaidGroup := "Task"
var_Bar5 := var_Chart:Bars:Copy("Task","Task-Strict")
var_Bar5:OverlaidType := exOverlaidBarsStrict | exOverlaidBarsStack
var_Bar5:OverlaidGroup := "Task"
var_Bar5:Color := RGB(255,0,0)
var_Items := oDCOCX_Exontrol1:Items
var_Items:InsertItem(0,"Task","Overlaid-None")
var_Items:InsertItem(0,"Task-Transparent","Overlaid-Semi-Transparent")
var_Items:InsertItem(0,"Task-Offset","Overlaid-Offset")
var_Items:InsertItem(0,"Task-OffsetTransparent","Overlaid-OffsetTransparent")
var_Items:InsertItem(0,"Task-Intersect","Overlaid-Intersect")
var_Items:InsertItem(0,"Task-Stack","Overlaid-Stack")
h := var_Items:InsertItem(0,"Task-StackAutoArrange","Overlaid-StackAutoArrange")
var_Items:AddBar(h,"Task",SToD("20010107"),SToD("20010109"),"T1",nil)
var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010105"),"T2",nil)
var_Items:AddBar(h,"Task",SToD("20010104"),SToD("20010107"),"T3",nil)
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010108"),"T4",nil)
h := var_Items:InsertItem(0,"Task-Cascade","Overlaid-Cascade")
var_Items:AddBar(h,"Task",SToD("20010107"),SToD("20010109"),"T1",nil)
var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010105"),"T2",nil)
var_Items:AddBar(h,"Task",SToD("20010104"),SToD("20010107"),"T3",nil)
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010108"),"T4",nil)
var_Items:[ItemBar,h,"<A*>",exBarOverlaidKey] := "A"
var_Items:[ItemBar,h,"<T*>",exBarOverlaidKey] := "T"
h := var_Items:InsertItem(0,"Task","Overlaid-StackStrict")
var_Items:AddBar(h,"Task-Strict",SToD("20010107"),SToD("20010109"),"T1",nil)
var_Items:[ItemBar,0,"<*>",exBarCaption] := "<%=%9%>"
oDCOCX_Exontrol1:EndUpdate()
|
|
2035
|
FilterBarCaption ALLUI Keyword ( sample 3, result, leaf )
METHOD OCX_Exontrol1AddGroupItem(Item) CLASS MainDialog
// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
local var_Items,var_Items1 as IItems
local l,val as USUAL
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ItemBackColor,Item] := RGB(240,240,240)
val := var_Items:[CellValue,Item,var_Items:[GroupItem,Item]]
var_Items:[CellState,Item,var_Items:[GroupItem,Item]] := oDCOCX_Exontrol1:FormatABC("A = `Checked` ? 1 : 0",val,nil,nil)
var_Items1 := oDCOCX_Exontrol1:Items
var_Items1:[ItemDividerLine,Item] := EmptyLine
var_Items1:AddBar(Item,"Summary",SToD("20171202"),SToD("20171202"),nil,nil)
var_Items1:DefineSummaryBars(Item,"",-3,"")
l := var_Items1:[GroupItem,Item]
var_Items1:[CellSingleLine,Item,l] := exCaptionWordWrap
var_Items1:[CellBold,Item,l] := true
oDCOCX_Exontrol1:Chart:[ItemBackColor,Item] := RGB(240,240,240)
RETURN NIL
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local i as USUAL
i := oDCOCX_Exontrol1:FormatABC("value + 1",oDCOCX_Exontrol1:Items:[ItemToIndex,Item],nil,nil)
oDCOCX_Exontrol1:Items:[CellImage,Item,3] := i
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Bar as IBar
local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5 as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAAEhABOUGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCMQwAFBIbhrE4ZBjHGQRUgyI43RhHUBzVIUBxDEaTZLlEYJBgeHYhDJPcaUVDcWQHGyeZwjSgpKoWSJIU5NcggPDgEwTKCmKlTAKoSzJMyEmwWRAdVTZLSEaxierKPhyWT/XgAF4PfDFKRXFqXY5mKZJFqKOI8TxINgxPQMGyrBqraLqKwQGrGCQKSBhUZ3dS2JR3OSlYRuQAMVgOXoDZhPWZXbDtSzPE63NgtOR5DiGWalABoeoxRa9cz3ViCJSrGTqIoINIzZLHFQbPpdAYdP6BeIjXhhZxBBuLZXmEOh9CcNoni2N4MjWVodh+DpfBeLJinsWR9AyYwVAkGBhEAFphGiRogDEGBamkFgtjcZgHiMbgehYaQhAIEIREAaQYkcQZUHIGRUGQDBOEaBAhDYDxGkMZAkCgeoagYZAYEYAYIAWGhemICIFj8WIiCiFR5gkIhogmBoKGKJx2C6C5hniMgggqYwog0UoNGMZJiDiCZRgOLY0ECUAQICA==")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeSolid
var_Bar:Color := 0x1000000
var_Bar:[Def,exBarCaption] := "<%=%513%>"
var_Bar:[Def,exBarHAlignCaption] := 18
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-1")}
var_Column:DisplayFilterButton := true
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-2")}
var_Column1:DisplayFilterButton := true
var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
var_Column2:[Def,exCellHasCheckBox] := true
var_Column2:DisplayFilterButton := true
var_Column2:DisplayFilterPattern := false
var_Column2:FilterType := exCheck
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Image")}
var_Column3:DisplayFilterButton := true
var_Column3:FilterType := exImage
var_Column3:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox
var_Column4 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column4:AllowSizing := false
var_Column4:AllowSort := false
var_Column4:Width := 32
var_Column4:FormatColumn := "1 rpos ``"
var_Column4:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem("Item A"),1] := "Sub-Item A"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "Sub-Item B"
var_Items:[CellState,h,2] := 1
var_Items:[CellValue,var_Items:AddItem("Item C"),1] := "Sub-Item C"
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1:FilterBarCaption := "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + leafitemcount + ` result(s)` ) : (`<r><fgcolor=808080>`+ leafitemcount + ` item(s)`) )))"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarVisible | exFilterBarPromptVisible
oDCOCX_Exontrol1:AllowGroupBy := true
oDCOCX_Exontrol1:SortBarVisible := true
var_Column5 := oDCOCX_Exontrol1:Columns:[Item,2]
var_Column5:FormatColumn := "%CS2 ? `Checked` : `Unchecked`"
var_Column5:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()
|
|
2034
|
A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do
local var_Column,var_Column1 as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:DefaultItemHeight := 20
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1mY1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2hhWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQRJSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA==")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Default")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Position")}
var_Column1:FormatColumn := "1 rindex ``"
var_Column1:Visible := false
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%C1 mod 2",nil)
var_ConditionalFormat:BackColor := 0x1000000
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 4")
oDCOCX_Exontrol1:EndUpdate()
|
|
2033
|
How can I specify alternate background colors for each root item, similar with BackColorAlternate
local var_Column,var_Column1 as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Default")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Position")}
var_Column1:FormatColumn := "( ( 1:=( ( 0:=(1 rpos '') ) lfind `.`) ) < 0 ? =:0 : (=:0 left =:1) )"
var_Column1:Visible := false
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%C1 mod 2",nil)
var_ConditionalFormat:BackColor := RGB(240,240,240)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
h := var_Items:AddItem("Root 3")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:EndUpdate()
|
|
2032
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 4)
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:VisualDesign := "gBFLBWIgBAEHhEJAEGg6VAkHeLpgwChAOhULB8XAUUg8MAAREEHGMcgRCJ0ei8dhABDEcQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBRWAkEwiBiEQTjea5CgOIAFS7LIqjRQEBxhIaZYIGaiQADENo9TxIMZAfBIHShK6NJABCCSQKkYx0HScRijDIEFwGIQmbKiej4DCiCQQW7OYYRVCNMQSfa8HivJyrcamfp/YBgOBYHb1eLVPR5LwfPCGUw1P6PLxkORZHimK4tSLHV7xVpMIwZFafIQhCCoHomS5NU7UNR0TQUFx9FaGX7rDDsGwLAJ6XRgF4bg2VpnHePpenAN4bH2GwHFmApSjEGBLnWOpRGOTBZHOegrE6BxPiWVJqCweQrn0LgJAWJBjwgaw1gKO5HmWch5h+fovF+G5bmich4BgfZkB8dynRUVYqiUR5rnmex/F6N4tn2AJfnebZ3DEXw3HWXgzAyIwgicKJKBKEIhCeCgiHyHYFEmSAFmqBghFIdgSCeIJygYDAyAgJx6AoIINAMOJNCgCZCGoGoLmMCI+CwJoihMNglCCIhzFCUg0EmMhghWDBkAiQg9CUY4jEYN4Jk2IxklYJoJHIUg+CSZJSESFwkkkGI+FOFIJEIRhPhMCRJCSVoRrSBhiDgTZjHYT4PEkYhwhgJYm0SaIaiaSYuE+GQNlmCIBGCJxjhiZQ5AkMhAg6ExJCkPhPguaAiFYUAlAkKZ0g6HoOEmWR/GHcA4m0OwIlIJIHCRgQshGJhpjoaocieaZiC6GAimkUgehIOwnGYGYIGkah6jaE4rg6SpCjKK5rEOMYlGIGIihKOggloFoqj6L5aGaBo6CkGIkAQjiPpCAAaJILCTJQlKPACDaXJgmSaJsnCdJ4nygKEoijKQpSmKcqCpKoqysK0rivLAsSyLMtC1LYty4Lkui7LwvS+L8wDBMIwzEMUxjHMgyTKMszDNM4zzQNE0jTNQ1TWNc2DZNo2zcN03jfOA4TiOM5DlOY5zoOk6jrOw7TuO88DxPI8z0PU9j3Pg+T6Ps/D9P4/0AQFAkDQRBUGQdCEJQpC0MQ1DkPRBEUSRNFEVBhFkXRhGQ9D6Dxfh+W5gGGd4QH2XQjCmDpFFaKoVB+D5Xmed5+H8YAHnIAh9EwV5Fl0d4MkMKJICmSgygSJAoEmMUCIPgnDCCIOQFYCxJjwFoCcA4kxoF+AIJkAgExegDEgEYQInAzCUAIOEGgfxiiRDYF1Q4EQ2BSCaEQYwbAiKREMpRSymFNDIAkAxT6oVRgSA2qdVKq1WqvVirMZQUhSCnBUMoIgoQRgnGSIQUgkg1hIHYAkAYMROAmHiLsE4xxSCxBwEwCQ0wmDdBsE0GYXBtg2CSPMFIuwYiQBYBQeAcwOCnBCCZgw0g0glBONAQgqQThCGgPQGoBQfiRGmOEZIPAXjsBoPAO4HRThhA0EQSA5BAgaCKJIGg3QdhOCmNUBoQAijTCIF0FwQxpCHDIPAYYMQGgtCmFcaQtRAjZCyFYSojQ2B2BoKwIYFApBXEIBsIQ1QsAWAWEwaA1xCgjAoIAQBAQ="
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child")
oDCOCX_Exontrol1:EndUpdate()
|
|
2031
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 3)
local var_Appearance as IAppearance
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(3,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgXIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRgwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMINCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=")
var_Appearance:Add(1,"CP:3 -2 -2 2 2")
var_Appearance:Add(4,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEeBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOFSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=")
var_Appearance:Add(2,"CP:4 -2 -2 2 2")
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesAtRoot
oDCOCX_Exontrol1:HasButtons := exCustom
oDCOCX_Exontrol1:[HasButtonsCustom,false] := 16777216
oDCOCX_Exontrol1:[HasButtonsCustom,true] := 33554432
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child")
oDCOCX_Exontrol1:EndUpdate()
|
|
2030
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 2)
local var_Appearance as IAppearance
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"XP:TREEVIEW 2 1")
var_Appearance:Add(2,"XP:TREEVIEW 2 2")
oDCOCX_Exontrol1:[Background,exTreeGlyphOpen] := 0x1000000
oDCOCX_Exontrol1:[Background,exTreeGlyphClose] := 0x2000000
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child")
oDCOCX_Exontrol1:EndUpdate()
|
|
2029
|
How can I find if the control is running in DPI mode
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`",nil,nil,nil)) ))
|
|
2028
|
How can I change the visual appearance of the +/- buttons (method 1)
local var_Appearance as IAppearance
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgXIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRgwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMINCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=")
var_Appearance:Add(2,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEeBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOFSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=")
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:[Background,exTreeGlyphOpen] := 0x1000000
oDCOCX_Exontrol1:[Background,exTreeGlyphClose] := 0x2000000
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child")
oDCOCX_Exontrol1:EndUpdate()
|
|
2027
|
How can I add a summary bar once the user group by a column
METHOD OCX_Exontrol1AddGroupItem(Item) CLASS MainDialog
// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
local var_Items as IItems
local l as USUAL
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ItemDividerLine,Item] := EmptyLine
var_Items:AddBar(Item,"Summary",SToD("20171202"),SToD("20171202"),nil,nil)
var_Items:DefineSummaryBars(Item,"",-3,"")
l := var_Items:[GroupItem,Item]
var_Items:[CellSingleLine,Item,l] := exCaptionWordWrap
var_Items:[CellBold,Item,l] := true
var_Items:[ItemBackColor,Item] := RGB(190,190,190)
oDCOCX_Exontrol1:Chart:[ItemBackColor,Item] := RGB(190,190,190)
RETURN NIL
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171210"),nil,nil)
RETURN NIL
local var_Bar as IBar
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAAEhABOUGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCMQwAFBIbhrE4ZBjHGQRUgyI43RhHUBzVIUBxDEaTZLlEYJBgeHYhDJPcaUVDcWQHGyeZwjSgpKoWSJIU5NcggPDgEwTKCmKlTAKoSzJMyEmwWRAdVTZLSEaxierKPhyWT/XgAF4PfDFKRXFqXY5mKZJFqKOI8TxINgxPQMGyrBqraLqKwQGrGCQKSBhUZ3dS2JR3OSlYRuQAMVgOXoDZhPWZXbDtSzPE63NgtOR5DiGWalABoeoxRa9cz3ViCJSrGTqIoINIzZLHFQbPpdAYdP6BeIjXhhZxBBuLZXmEOh9CcNoni2N4MjWVodh+DpfBeLJinsWR9AyYwVAkGBhEAFphGiRogDEGBamkFgtjcZgHiMbgehYaQhAIEIREAaQYkcQZUHIGRUGQDBOEaBAhDYDxGkMZAkCgeoagYZAYEYAYIAWGhemICIFj8WIiCiFR5gkIhogmBoKGKJx2C6C5hniMgggqYwog0UoNGMZJiDiCZRgOLY0ECUAQICA==")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 342
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeSolid
var_Bar:Color := 0x1000000
var_Bar:[Def,exBarCaption] := "<%=%513%>"
var_Bar:[Def,exBarHAlignCaption] := 18
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("C1")
var_Columns:Add("C2")
var_Columns:Add("C3")
var_Column := IColumn{var_Columns:Add("Pos")}
var_Column:FormatColumn := "1 pos ``"
var_Column:AllowGroupBy := false
var_Column:Position := 0
var_Column:Width := 48
var_Column:AllowSizing := false
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarCaption := "Drag a <b>column</b> header here to group by that column."
oDCOCX_Exontrol1:AllowGroupBy := true
oDCOCX_Exontrol1:HasLines := exNoLine
oDCOCX_Exontrol1:LinesAtRoot := exNoLinesAtRoot
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "SubItem B.1"
var_Items:[CellValue,h,2] := "SubItem B.2"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "SubItem B.1"
var_Items:[CellValue,h,2] := "SubItem B.2"
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column1:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()
|
|
2026
|
Is it possible to display no +/- button for grouped items
METHOD OCX_Exontrol1AddGroupItem(Item) CLASS MainDialog
// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
local var_Items as IItems
local l as USUAL
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ItemDividerLine,Item] := EmptyLine
var_Items:AddBar(Item,"Progress",SToD("20171202"),SToD("20171202"),nil,nil)
var_Items:DefineSummaryBars(Item,"",-3,"")
l := var_Items:[GroupItem,Item]
var_Items:[CellSingleLine,Item,l] := exCaptionWordWrap
var_Items:[CellBold,Item,l] := true
var_Items:[ItemBackColor,Item] := RGB(190,190,190)
oDCOCX_Exontrol1:Chart:[ItemBackColor,Item] := RGB(190,190,190)
RETURN NIL
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171210"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 342
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("C1")
var_Columns:Add("C2")
var_Columns:Add("C3")
var_Column := IColumn{var_Columns:Add("Pos")}
var_Column:FormatColumn := "1 pos ``"
var_Column:AllowGroupBy := false
var_Column:Position := 0
var_Column:Width := 48
var_Column:AllowSizing := false
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarCaption := "Drag a <b>column</b> header here to group by that column."
oDCOCX_Exontrol1:AllowGroupBy := true
oDCOCX_Exontrol1:HasLines := exNoLine
oDCOCX_Exontrol1:LinesAtRoot := exNoLinesAtRoot
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "SubItem B.1"
var_Items:[CellValue,h,2] := "SubItem B.2"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "SubItem B.1"
var_Items:[CellValue,h,2] := "SubItem B.2"
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column1:SortOrder := SortAscending
var_Column1:Alignment := CenterAlignment
var_Column1:[Def,exCellBackColor] := 15790320
oDCOCX_Exontrol1:EndUpdate()
|
|
2025
|
How can I change the label, caption or the formula of the grouped items
METHOD OCX_Exontrol1AddGroupItem(Item) CLASS MainDialog
// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(Item,"Progress",SToD("20171202"),SToD("20171202"),nil,nil)
var_Items:DefineSummaryBars(Item,"",-3,"")
RETURN NIL
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171210"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 342
var_Columns := oDCOCX_Exontrol1:Columns
var_Column := IColumn{var_Columns:Add("C1")}
var_Column:GroupByTotalField := ""
var_Column:GroupByFormatCell := "upper(value)"
var_Columns:Add("C2")
var_Columns:Add("C3")
var_Column1 := IColumn{var_Columns:Add("Pos")}
var_Column1:FormatColumn := "1 pos ``"
var_Column1:AllowGroupBy := false
var_Column1:Position := 0
var_Column1:Width := 48
var_Column1:AllowSizing := false
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarCaption := "Drag a <b>column</b> header here to group by that column."
oDCOCX_Exontrol1:AllowGroupBy := true
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "SubItem B.1"
var_Items:[CellValue,h,2] := "SubItem B.2"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "SubItem B.1"
var_Items:[CellValue,h,2] := "SubItem B.2"
oDCOCX_Exontrol1:Columns:[Item,0]:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()
|
|
2024
|
How can I change the aspect of grouped items
METHOD OCX_Exontrol1AddGroupItem(Item) CLASS MainDialog
// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
local var_Items as IItems
local l as USUAL
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ItemDividerLine,Item] := EmptyLine
var_Items:AddBar(Item,"Progress",SToD("20171202"),SToD("20171202"),nil,nil)
var_Items:DefineSummaryBars(Item,"",-3,"")
l := var_Items:[GroupItem,Item]
var_Items:[CellSingleLine,Item,l] := exCaptionWordWrap
var_Items:[CellBold,Item,l] := true
var_Items:[ItemBackColor,Item] := RGB(190,190,190)
oDCOCX_Exontrol1:Chart:[ItemBackColor,Item] := RGB(190,190,190)
RETURN NIL
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171210"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 342
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("C1")
var_Columns:Add("C2")
var_Columns:Add("C3")
var_Column := IColumn{var_Columns:Add("Pos")}
var_Column:FormatColumn := "1 pos ``"
var_Column:AllowGroupBy := false
var_Column:Position := 0
var_Column:Width := 48
var_Column:AllowSizing := false
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarCaption := "Drag a <b>column</b> header here to group by that column."
oDCOCX_Exontrol1:AllowGroupBy := true
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "SubItem B.1"
var_Items:[CellValue,h,2] := "SubItem B.2"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "SubItem B.1"
var_Items:[CellValue,h,2] := "SubItem B.2"
oDCOCX_Exontrol1:Columns:[Item,0]:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()
|
|
2023
|
How can I collapse all items when the user performs a grouping
METHOD OCX_Exontrol1AddGroupItem(Item) CLASS MainDialog
// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ExpandItem,Item] := false
var_Items:[ItemDividerLine,Item] := EmptyLine
var_Items:AddBar(Item,"Progress",SToD("20171202"),SToD("20171202"),nil,nil)
var_Items:DefineSummaryBars(Item,"",-3,"")
RETURN NIL
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171210"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 342
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("C1")
var_Columns:Add("C2")
var_Columns:Add("C3")
var_Column := IColumn{var_Columns:Add("Pos")}
var_Column:FormatColumn := "1 pos ``"
var_Column:AllowGroupBy := false
var_Column:Position := 0
var_Column:Width := 48
var_Column:AllowSizing := false
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarCaption := "Drag a <b>column</b> header here to group by that column."
oDCOCX_Exontrol1:AllowGroupBy := true
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "SubItem B.1"
var_Items:[CellValue,h,2] := "SubItem B.2"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "SubItem B.1"
var_Items:[CellValue,h,2] := "SubItem B.2"
oDCOCX_Exontrol1:Columns:[Item,0]:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()
|
|
2022
|
Is it possible to select columns that user can drop to the sort bar, when using the Group By feature
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171210"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 342
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("C1")
var_Columns:Add("C2")
var_Columns:Add("C3")
var_Column := IColumn{var_Columns:Add("Pos")}
var_Column:FormatColumn := "1 pos ``"
var_Column:AllowGroupBy := false
var_Column:Position := 0
var_Column:Width := 48
var_Column:AllowSizing := false
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarCaption := "<fgcolor=FF0000>Try to drag the Pos column here."
oDCOCX_Exontrol1:AllowGroupBy := true
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item A")
var_Items:[CellValue,h,1] := "SubItem A.1"
var_Items:[CellValue,h,2] := "SubItem A.2"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "SubItem B.1"
var_Items:[CellValue,h,2] := "SubItem B.2"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "SubItem B.1"
var_Items:[CellValue,h,2] := "SubItem B.2"
oDCOCX_Exontrol1:EndUpdate()
|
|
2021
|
How can I filter for the type of the bars I have in my chart
local var_Bar,var_Bar1,var_Bar2 as IBar
local var_Chart as IChart
local var_Column,var_Column1,var_Column2 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171128")
var_Chart:[PaneWidth,false] := 0
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:[Def,exBarCaption] := "<%=%0%>"
var_Bar:[Def,exBarHAlignCaption] := 18
var_Bar1 := var_Chart:Bars:Copy("Task","GTask")
var_Bar1:[Def,exBarCaption] := "<%=%0%>"
var_Bar1:[Def,exBarHAlignCaption] := 18
var_Bar1:Color := RGB(0,255,0)
var_Bar2 := var_Chart:Bars:Copy("Task","RTask")
var_Bar2:[Def,exBarCaption] := "<%=%0%>"
var_Bar2:[Def,exBarHAlignCaption] := 18
var_Bar2:Color := RGB(255,0,0)
var_Chart:ColumnsFormatLevel := "0"
oDCOCX_Exontrol1:OnResizeControl := exDisableSplitter | exResizeChart
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Default")}
var_Column:DisplayFilterButton := true
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Type")}
var_Column1:[Def,exCellValueToItemBarKey] := ""
var_Column1:[Def,exCellValueToItemBarProperty] := 0
var_Column1:Visible := false
var_Column1:DisplayFilterButton := true
var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Items := oDCOCX_Exontrol1:Items
var_Items:AllowCellValueToItemBar := true
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20171204"),SToD("20171212"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 2"),"GTask",SToD("20171204"),SToD("20171212"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 3"),"RTask",SToD("20171204"),SToD("20171212"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 4"),"Task",SToD("20171204"),SToD("20171212"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 5"),"GTask",SToD("20171204"),SToD("20171212"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 6"),"RTask",SToD("20171204"),SToD("20171212"),nil,nil)
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1:FilterBarCaption := "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarShowCloseIfRequired | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible
var_Column2 := oDCOCX_Exontrol1:Columns:[Item,1]
var_Column2:FilterType := exFilter
var_Column2:Filter := "GTask|RTask"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
2020
|
How can I display the control's filter bar in the Items section only, as it was displayed before
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-1")}
var_Column:DisplayFilterButton := true
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-2")}
var_Column1:DisplayFilterButton := true
var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column2:AllowSizing := false
var_Column2:AllowSort := false
var_Column2:Width := 32
var_Column2:FormatColumn := "1 apos ``"
var_Column2:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem("Item A"),1] := "Sub-Item A"
var_Items:[CellValue,var_Items:AddItem("Item B"),1] := "Sub-Item B"
var_Items:[CellValue,var_Items:AddItem("Item C"),1] := "Sub-Item C"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarShort
var_Column3 := oDCOCX_Exontrol1:Columns:[Item,1]
var_Column3:FilterType := exPattern
var_Column3:Filter := "*B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
2019
|
FilterBarCaption ALL Keyword ( sample 2, result )
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local i as USUAL
i := oDCOCX_Exontrol1:FormatABC("value + 1",oDCOCX_Exontrol1:Items:[ItemToIndex,Item],nil,nil)
oDCOCX_Exontrol1:Items:[CellImage,Item,3] := i
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5 as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-1")}
var_Column:DisplayFilterButton := true
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-2")}
var_Column1:DisplayFilterButton := true
var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
var_Editor := var_Column2:Editor
var_Editor:EditType := CheckValueType
var_Editor:[Option,exCheckValue2] := 1
var_Column2:DisplayFilterButton := true
var_Column2:DisplayFilterPattern := false
var_Column2:FilterType := exCheck
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Image")}
var_Column3:DisplayFilterButton := true
var_Column3:FilterType := exImage
var_Column3:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox
var_Column4 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column4:AllowSizing := false
var_Column4:AllowSort := false
var_Column4:Width := 32
var_Column4:FormatColumn := "1 apos ``"
var_Column4:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem("Item A"),1] := "Sub-Item A"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "Sub-Item B"
var_Items:[CellState,h,2] := 1
var_Items:[CellValue,var_Items:AddItem("Item C"),1] := "Sub-Item C"
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1:FilterBarCaption := "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarVisible | exFilterBarPromptVisible
var_Column5 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column5:FilterType := exFilter
var_Column5:Filter := "Item A|Item B"
oDCOCX_Exontrol1:Columns:[Item,2]:Filter := AsString(1)
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
2018
|
FilterBarCaption ALL Keyword ( sample 1 )
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local i as USUAL
i := oDCOCX_Exontrol1:FormatABC("value + 1",oDCOCX_Exontrol1:Items:[ItemToIndex,Item],nil,nil)
oDCOCX_Exontrol1:Items:[CellImage,Item,3] := i
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5 as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-1")}
var_Column:DisplayFilterButton := true
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-2")}
var_Column1:DisplayFilterButton := true
var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
var_Editor := var_Column2:Editor
var_Editor:EditType := CheckValueType
var_Editor:[Option,exCheckValue2] := 1
var_Column2:DisplayFilterButton := true
var_Column2:DisplayFilterPattern := false
var_Column2:FilterType := exCheck
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Image")}
var_Column3:DisplayFilterButton := true
var_Column3:FilterType := exImage
var_Column3:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox
var_Column4 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column4:AllowSizing := false
var_Column4:AllowSort := false
var_Column4:Width := 32
var_Column4:FormatColumn := "1 apos ``"
var_Column4:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem("Item A"),1] := "Sub-Item A"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "Sub-Item B"
var_Items:[CellState,h,2] := 1
var_Items:[CellValue,var_Items:AddItem("Item C"),1] := "Sub-Item C"
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1:FilterBarCaption := "all"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarVisible | exFilterBarPromptVisible
var_Column5 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column5:FilterType := exFilter
var_Column5:Filter := "Item A|Item B"
oDCOCX_Exontrol1:Columns:[Item,2]:Filter := AsString(1)
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
2017
|
FilterBarCaption ALLUI Keyword ( sample 2, result )
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local i as USUAL
i := oDCOCX_Exontrol1:FormatABC("value + 1",oDCOCX_Exontrol1:Items:[ItemToIndex,Item],nil,nil)
oDCOCX_Exontrol1:Items:[CellImage,Item,3] := i
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5 as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-1")}
var_Column:DisplayFilterButton := true
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-2")}
var_Column1:DisplayFilterButton := true
var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
var_Editor := var_Column2:Editor
var_Editor:EditType := CheckValueType
var_Editor:[Option,exCheckValue2] := 1
var_Column2:DisplayFilterButton := true
var_Column2:DisplayFilterPattern := false
var_Column2:FilterType := exCheck
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Image")}
var_Column3:DisplayFilterButton := true
var_Column3:FilterType := exImage
var_Column3:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox
var_Column4 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column4:AllowSizing := false
var_Column4:AllowSort := false
var_Column4:Width := 32
var_Column4:FormatColumn := "1 apos ``"
var_Column4:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem("Item A"),1] := "Sub-Item A"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "Sub-Item B"
var_Items:[CellState,h,2] := 1
var_Items:[CellValue,var_Items:AddItem("Item C"),1] := "Sub-Item C"
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1:FilterBarCaption := "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarVisible | exFilterBarPromptVisible
var_Column5 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column5:FilterType := exFilter
var_Column5:Filter := "Item A|Item B"
oDCOCX_Exontrol1:Columns:[Item,2]:Filter := AsString(1)
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
2016
|
FilterBarCaption ALLUI Keyword ( sample 1 )
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local i as USUAL
i := oDCOCX_Exontrol1:FormatABC("value + 1",oDCOCX_Exontrol1:Items:[ItemToIndex,Item],nil,nil)
oDCOCX_Exontrol1:Items:[CellImage,Item,3] := i
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5 as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-1")}
var_Column:DisplayFilterButton := true
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-2")}
var_Column1:DisplayFilterButton := true
var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
var_Editor := var_Column2:Editor
var_Editor:EditType := CheckValueType
var_Editor:[Option,exCheckValue2] := 1
var_Column2:DisplayFilterButton := true
var_Column2:DisplayFilterPattern := false
var_Column2:FilterType := exCheck
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Image")}
var_Column3:DisplayFilterButton := true
var_Column3:FilterType := exImage
var_Column3:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox
var_Column4 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column4:AllowSizing := false
var_Column4:AllowSort := false
var_Column4:Width := 32
var_Column4:FormatColumn := "1 apos ``"
var_Column4:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem("Item A"),1] := "Sub-Item A"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "Sub-Item B"
var_Items:[CellState,h,2] := 1
var_Items:[CellValue,var_Items:AddItem("Item C"),1] := "Sub-Item C"
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1:FilterBarCaption := "allui"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarVisible | exFilterBarPromptVisible
var_Column5 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column5:FilterType := exFilter
var_Column5:Filter := "Item A|Item B"
oDCOCX_Exontrol1:Columns:[Item,2]:Filter := AsString(1)
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
2015
|
FilterBarCaption AVAILABLE Keyword ( sample 2, result )
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local i as USUAL
i := oDCOCX_Exontrol1:FormatABC("value + 1",oDCOCX_Exontrol1:Items:[ItemToIndex,Item],nil,nil)
oDCOCX_Exontrol1:Items:[CellImage,Item,3] := i
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5 as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-1")}
var_Column:DisplayFilterButton := true
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-2")}
var_Column1:DisplayFilterButton := true
var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
var_Editor := var_Column2:Editor
var_Editor:EditType := CheckValueType
var_Editor:[Option,exCheckValue2] := 1
var_Column2:DisplayFilterButton := true
var_Column2:DisplayFilterPattern := false
var_Column2:FilterType := exCheck
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Image")}
var_Column3:DisplayFilterButton := true
var_Column3:FilterType := exImage
var_Column3:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox
var_Column4 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column4:AllowSizing := false
var_Column4:AllowSort := false
var_Column4:Width := 32
var_Column4:FormatColumn := "1 apos ``"
var_Column4:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem("Item A"),1] := "Sub-Item A"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "Sub-Item B"
var_Items:[CellState,h,2] := 1
var_Items:[CellValue,var_Items:AddItem("Item C"),1] := "Sub-Item C"
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1:FilterBarCaption := "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( available replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarVisible | exFilterBarPromptVisible
var_Column5 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column5:FilterType := exFilter
var_Column5:Filter := "Item A|Item B"
oDCOCX_Exontrol1:Columns:[Item,2]:Filter := AsString(1)
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
2014
|
FilterBarCaption AVAILABLE Keyword ( sample 1 )
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local i as USUAL
i := oDCOCX_Exontrol1:FormatABC("value + 1",oDCOCX_Exontrol1:Items:[ItemToIndex,Item],nil,nil)
oDCOCX_Exontrol1:Items:[CellImage,Item,3] := i
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5 as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-1")}
var_Column:DisplayFilterButton := true
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-2")}
var_Column1:DisplayFilterButton := true
var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
var_Editor := var_Column2:Editor
var_Editor:EditType := CheckValueType
var_Editor:[Option,exCheckValue2] := 1
var_Column2:DisplayFilterButton := true
var_Column2:DisplayFilterPattern := false
var_Column2:FilterType := exCheck
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Image")}
var_Column3:DisplayFilterButton := true
var_Column3:FilterType := exImage
var_Column3:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox
var_Column4 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column4:AllowSizing := false
var_Column4:AllowSort := false
var_Column4:Width := 32
var_Column4:FormatColumn := "1 apos ``"
var_Column4:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem("Item A"),1] := "Sub-Item A"
h := var_Items:AddItem("Item B")
var_Items:[CellValue,h,1] := "Sub-Item B"
var_Items:[CellState,h,2] := 1
var_Items:[CellValue,var_Items:AddItem("Item C"),1] := "Sub-Item C"
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1:FilterBarCaption := "value + ` ` + available"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarVisible | exFilterBarPromptVisible
var_Column5 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column5:FilterType := exFilter
var_Column5:Filter := "Item A|Item B"
oDCOCX_Exontrol1:Columns:[Item,2]:Filter := AsString(1)
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
2013
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results )
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-1")}
var_Column:DisplayFilterButton := true
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-2")}
var_Column1:DisplayFilterButton := true
var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column2:AllowSizing := false
var_Column2:AllowSort := false
var_Column2:Width := 32
var_Column2:FormatColumn := "1 apos ``"
var_Column2:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem("Item A"),1] := "Sub-Item A"
var_Items:[CellValue,var_Items:AddItem("Item B"),1] := "Sub-Item B"
var_Items:[CellValue,var_Items:AddItem("Item C"),1] := "Sub-Item C"
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1:FilterBarCaption := "(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarToggle
var_Column3 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column3:FilterType := exFilter
var_Column3:Filter := "Item A|Item B"
var_Column4 := oDCOCX_Exontrol1:Columns:[Item,1]
var_Column4:FilterType := exPattern
var_Column4:Filter := "*B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
2012
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-1")}
var_Column:DisplayFilterButton := true
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-2")}
var_Column1:DisplayFilterButton := true
var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column2:AllowSizing := false
var_Column2:AllowSort := false
var_Column2:Width := 32
var_Column2:FormatColumn := "1 apos ``"
var_Column2:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem("Item A"),1] := "Sub-Item A"
var_Items:[CellValue,var_Items:AddItem("Item B"),1] := "Sub-Item B"
var_Items:[CellValue,var_Items:AddItem("Item C"),1] := "Sub-Item C"
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1:FilterBarCaption := "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarToggle
var_Column3 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column3:FilterType := exFilter
var_Column3:Filter := "Item A|Item B"
var_Column4 := oDCOCX_Exontrol1:Columns:[Item,1]
var_Column4:FilterType := exPattern
var_Column4:Filter := "*B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
2011
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-1")}
var_Column:DisplayFilterButton := true
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Col-2")}
var_Column1:DisplayFilterButton := true
var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column2:AllowSizing := false
var_Column2:AllowSort := false
var_Column2:Width := 32
var_Column2:FormatColumn := "1 apos ``"
var_Column2:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem("Item A"),1] := "Sub-Item A"
var_Items:[CellValue,var_Items:AddItem("Item B"),1] := "Sub-Item B"
var_Items:[CellValue,var_Items:AddItem("Item C"),1] := "Sub-Item C"
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := AsString(oDCOCX_Exontrol1:FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oDCOCX_Exontrol1:[Description,exFilterBarAnd],nil,nil))
oDCOCX_Exontrol1:FilterBarCaption := "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarToggle
var_Column3 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column3:FilterType := exFilter
var_Column3:Filter := "Item A|Item B"
var_Column4 := oDCOCX_Exontrol1:Columns:[Item,1]
var_Column4:FilterType := exPattern
var_Column4:Filter := "*B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
2010
|
Is it possible to automatically displays the control's filter label to the right
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1,var_Column2 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}
var_Column:DisplayFilterButton := true
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column1:AllowSizing := false
var_Column1:AllowSort := false
var_Column1:Width := 32
var_Column1:FormatColumn := "1 apos ``"
var_Column1:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarCaption := "`<r>` + value"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarShowCloseOnRight | exFilterBarToggle
var_Column2 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column2:FilterType := exFilter
var_Column2:Filter := "Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
2009
|
How can I get the number of results/items being shown in the control's filter bar (sample 4)
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}
var_Column:DisplayFilterButton := true
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column1:AllowSizing := false
var_Column1:AllowSort := false
var_Column1:Width := 32
var_Column1:FormatColumn := "1 apos ``"
var_Column1:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:FilterBarPrompt := AsString(oDCOCX_Exontrol1:FormatABC("`<b>` + value",oDCOCX_Exontrol1:FilterBarPrompt,nil,nil))
oDCOCX_Exontrol1:FilterBarCaption := "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarShowCloseOnRight | exFilterBarShowCloseIfRequired | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible
oDCOCX_Exontrol1:EndUpdate()
|
|
2008
|
How can I get the number of results being shown in the control's filter bar (sample 3)
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:AllowSizing := false
var_Column:AllowSort := false
var_Column:Width := 32
var_Column:FormatColumn := "1 apos ``"
var_Column:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:FilterBarCaption := "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : ``)"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column1:FilterType := exFilter
var_Column1:Filter := "Item A|Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
2007
|
How can I get the number of results being shown in the control's filter bar (sample 2, compact)
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:AllowSizing := false
var_Column:AllowSort := false
var_Column:Width := 32
var_Column:FormatColumn := "1 apos ``"
var_Column:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:FilterBarCaption := "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarSingleLine | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column1:FilterType := exFilter
var_Column1:Filter := "Item A|Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
2006
|
How can I get the number of results being shown in the control's filter bar (sample 1)
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:AllowSizing := false
var_Column:AllowSort := false
var_Column:Width := 32
var_Column:FormatColumn := "1 apos ``"
var_Column:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:FilterBarCaption := "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column1:FilterType := exFilter
var_Column1:Filter := "Item A|Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
2005
|
FilterBarCaption Predefined Keywords
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
METHOD OCX_Exontrol1AfterExpandItem(Item) CLASS MainDialog
// AfterExpandItem event - Fired after an item is expanded (collapsed).
oDCOCX_Exontrol1:Refresh()
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1,var_Column2 as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
var_Editor := var_Column:Editor
var_Editor:EditType := CheckValueType
var_Editor:[Option,exCheckValue2] := 1
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterType := exCheck
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column1:AllowSizing := false
var_Column1:AllowSort := false
var_Column1:Width := 32
var_Column1:FormatColumn := "1 apos ``"
var_Column1:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
h := var_Items:AddItem("Item B")
var_Items:[CellState,var_Items:InsertItem(h,nil,"Sub-Item B1"),1] := 1
var_Items:InsertItem(h,nil,"Sub-Item B2")
var_Items:[ExpandItem,h] := true
var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterInclude := exItemsWithChilds
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:FilterBarCaption := "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>: ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=808080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount + `</fgcolor>`"
oDCOCX_Exontrol1:FilterBarPromptPattern := "B"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible
var_Column2 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column2:FilterType := exFilter
var_Column2:Filter := "Item A|Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
2004
|
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:AllowSizing := false
var_Column:AllowSort := false
var_Column:Width := 32
var_Column:FormatColumn := "1 apos ``"
var_Column:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:FilterBarCaption := "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
oDCOCX_Exontrol1:FilterBarPromptPattern := "B"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column1:FilterType := exFilter
var_Column1:Filter := "Item A|Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
2003
|
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:AllowSizing := false
var_Column:AllowSort := false
var_Column:Width := 32
var_Column:FormatColumn := "1 apos ``"
var_Column:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarShowCloseOnRight | exFilterBarToggle | exFilterBarPromptVisible
oDCOCX_Exontrol1:FilterBarPrompt := AsString(oDCOCX_Exontrol1:FormatABC("`<r>` + value",oDCOCX_Exontrol1:FilterBarPrompt,nil,nil))
oDCOCX_Exontrol1:EndUpdate()
|
|
2002
|
Just wondering if it is possible to show the filter bar's close button on the right ( sample 1 )
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:RightToLeft := true
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:AllowSizing := false
var_Column:AllowSort := false
var_Column:Width := 32
var_Column:FormatColumn := "1 apos ``"
var_Column:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarToggle | exFilterBarPromptVisible
oDCOCX_Exontrol1:EndUpdate()
|
|
2001
|
How can I change the visual appearance of the filter bar's close button (EBN)
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Appearance as IAppearance
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJjyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmSZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OROicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXAiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaKJDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEAkjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSMRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ")
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:AllowSizing := false
var_Column:AllowSort := false
var_Column:Width := 32
var_Column:FormatColumn := "1 apos ``"
var_Column:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarToggle | exFilterBarPromptVisible
oDCOCX_Exontrol1:[Background,exFooterFilterBarButton] := 0x1000000
oDCOCX_Exontrol1:EndUpdate()
|